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Capitolul 8. Cuplări de echipamente periferice, 


interconectări şi aplicaţii 
ale microcalculatorului aMIC. 


[n acest capitol se vor prezentă o serie de uplicații, care urmăresc attt 
extinderea gamei de. cchipumente periferice, cit si utilizarea mierocaleulato- 
rului fa cadrul unor sisteme dedicate. Astfel, se descriu aplicaţii referitoare Ta : 

— cuplarea la microcaleulatorul aMIG a wuar LED-uri şi comutatoare. 

— enplarea la microcalculatorul aMIC a nmi convertor nuimeric-unalogie, 

— euplareu  microcaleulatorului aMIC ou caicracaleulatoarele FELIX 
M18, M113, 

+- enplarea la calculatorul aMIC a unui echipament de ilesenare şi indi- 
cure pe ecran de lip ,.J'OYSTICK", 

— cuplarea unui converter analog-numerie la  nmicrocalenlatorul aMTQ, 

— ufilizarea uierocaleulatorului aMIC pentru simularea unui circuit 
logic. 

— cuplarea ininiimprimantei MIMAO In microcaleulatorul uMIG, 

— cuplarea unui prográmalor de memorii de Up EPROM la miciocal- 
zulatorul aMIC, 

— mierocaleuiatorul aMIC cuplat cu terminalul DAF2010, 

— interfaţarea microcaleulatorului aMIC cu un minirobot, 

~ folosirea microcaleulatorului aMIC în cadrn! unui echipament pestra 
testarea mierasistemelor orientate pe magistrală. 

— utilizarea nucrocalenlatârului aMIC ca unitate penteu deservirea 
maşinilor nuelte, 

— ntifizarea microculeulatorului aMIG ca sistem de fureyistrare/redare a 
parametrilor seiniconlinui de proces, 

— utilizaten mierocalenfatornlui aMIC în laborator pentru prelucrarea 
datelor provenite din analiza eromatografică. 


8.1. Cuplarea unor LED-uri şi comutatoare 


Utilizind interfața paralelă de care dispune mierocaleulatorul personal 
se pot conecta la acesta dilerite dispozitive numerice.. Col mai simplu exemplu 
Jl reprezintă cuplarea unor led-uri $i commtatoare. — — 

Interfața paralelă este constituilă diubr-au circuit 4255 suplimentar, 
care are liniile porturilor A, B si C, fiecare de wite 8 biţi, luggate la un conector 
de pe eareusa microcalculatorului. La portel A sau conectat 8 comutatoare, 
fiecare avind posibilitatea să furnizeze independent nivelele logice 1 sau $$. 
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La portul C s-au conectat 8 led-uri, care vor fi stinse sau aprinse, după cum 
biții corespunzători ai circuitului 8255 sint 1 sau 9. Schema este prezentată 
în figura 8.1. 


30S 


| 


EM 
Tig. 8.1. Cuplarea unor led-uri şi comutatoare, 


Pentru aceaslă aplicație circuitul 8255 suplimentar a fost programat 
In modul 9 de lucra cu portul C pentru icsire, iar porturile A şi B pentru intrare. 
Adresele ueestor porturi sint : 


— 40H : portul A; — 42111 purtul C; 

-— 41H : portul B; — ASEL portul de comandă, 

In coutinuare se prezintă programul care realizează citirea permauentà 
a cemutatoarejor şi sfigerea stării aecstora Ja led-uri. 


Program de oplicafie penru înterfula paralelă 


START: MVI A, 92H ; lucarră în acumitoter cuvintul de comunvă 
OUT 43H ; transmáte In. clreaitul. 8255 
BUCLA : IN 40H ; clteşte partul A în ucumulator 
GMA ; compemeytear3 neuinnintonisi 
DUT — 42H ; trnnsiite în portul C 
JMP BECLA ; reluare, 


8.2. Cuplarea unui convertor numeric-analogic 


Mierocaleulatorul personal porte comanda un proces analogie simplu 
prin interfafarea unni convertor numetric-analogic. Valoarea numerică ce este 
furnizată convertorului se obțind ea urmare a goot călcule sau prin prelucrarea 
unor date externe. 


we ER sët 
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În acest exemplu s-a realizat inlerfatarea unui convertor numeric-analogic 
pe 8 biti, DACDS, la magistrala sistemului. Acest lücru a fost posibil deoarece 
semnalele magistralei de date, udresele'şi comenzile au fost legate la un conec- 
Lor de pe carcasă. Schema bloc a montajului este prezentată în figura 8.2. 


näi 
EE 


Fig. 8.2. Schema bloc pentru cuplarea unui convertor numeric analogic. 


Aceasta se compune din logien de decodificare a adresei, un registru de date 
de 8 biţi şi convertor DAC. Schema elcetrică complelü a interiațării conver- 
torului se prezinlă in ligura 8.3. 

Xicalizarca senmalului analogie de la ieșire coustă în înscrierea în rogistrul 
de date a unor valori numerice pe 8 biţi la momente de timp bine slubilite. 

În conlinnare se prezintă programul în limbaj de asamblare care reali- 
zauză la icgireá converlorului un semnul în diufi dë ficrăstrău. Transiaiterea 
datelur se facu priu instrucțiuni de iegire (QUT) cu adresa GOH. 


Progrem de uplicaţii pentru. DACOS. 


STARI : MVI A. 0 i intțimizaren acumalntarulni cu zero 
BUCLA: OUT — 60H ; desire în resistir de date 

INR A ; îneremuntează ` neumeulntaral 

JMP BACCA ; salt la reluare. : 

Pentru a varia periesda somualblui onalogic.se poate utiliza o subrutină de aşteptare ; 

START ` MYE H juluti2nrea neumulotornlet eu zero 
BUCLA: OUT bon lTuserie în registeni de daln 

INR A încreimeptează acanmitatonn 

CALL WATI ; replrază perioada semrulului 

JMP BUCLA : salt. la relunre 


mp ao oto 
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IROS. 


AnS CDB AE 


DB? 
o6 
DP 
De 


Bpp3 ; 
0B? ———— 
DEI 
DBO 


-ew DN 
Tig. 3.3. Schema cuplării convertorului numeric-analog DACS ja me- 
gistrăla rnicrocalculatorului ,aMIC*. 


Cuplarea unui convertor numeric-analogic n 


WAIT: LXI D GOOL; această. valoare reglează periouda 
PUSH PSW ` salvează acumulatorul 
ET: DEX D ; decrementeazü cantarul 


MOV A. D ` încarcă regisiil D) m A 
QUA E 1 SAU loglé titre A şi E ` 
JNZ ETI ; rëluarg dach idliferit da sero 
POP PSW 5 seface seumyliturul ` 


RET ` revenire în programul principal, 


8.3. Interconectarea cu miérocalculatoarele Felix M18, M118 


Cuplarea. microculenlatoruIni personal la sistemele de calcul FELIX M18 
$i M118 se face prin interfaga. serială standard RS 232. 

Ín acest scop „aMIC“ a fost dotát cu un con etor de 25 de contacte la 
care sint legate semnalele circuitului 8231. Un conector asemâniitor există 
$i la MIS7IIă,. i 

Coneclarea celar donà sisteme se fave, printr-un cablu cu trei linii după 


schema prezentată în ligura 8.4. Se utilizează consetori RACK cu 23 de contacte, 
de tip tată”, 


O MIC Brg 
: 1 
2 2 


3 


Fig. 8.4. Cablul de interconectare „MIC — 
|o ERIC M18/118, 


Caitalţi pini din conectori, neiadicalt In. desen, sini. lăsaţi neeunceta[i. 

Peulru realizaren. comunicației pe fiecare din cele donà sisteme rulează 
eile un program. În conlinnare se prezintă un exemplu cure transferă 100 de 
octeți din memoria mierovaleulutornlui. FELIX VIII de la adresa 6000H 
în memoria mierocalculatorului sa MIC” In adresa 609b. Uu aseinenea procedeu 
éste dcossbit de util, deoarece pe MIS/L18 se pot intruduce şi pune la punct 
programe complexe pentru „AMIG! utilizindu-se Cours: soflware evoluate 
disponibile pe aceste sistema, apoi aceste programs sînt transferate li micro- 
calculatorul personal pentru a îi rulate. i 

“În scopul realizării transferului de date pe micracaleulatarul »aMIG* 
se rulvază un program de recepţie a. octetilor transratsi pe linia serială. 


t Program da recepție a daletor pe linia sertată 


START: MVI A,0CEH ; cuvintul de mud 
OUT L ` o; dmnamite la 8251 
MYT A,27H ` : cuvintul de comandă 


A 
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OUT 1 ; transmite la. 8251 
LNI H,56609H ; în li, I. adresa de început 
MVI Gigo ; contorul de octeți 


RUCLA : IN 1 ; bucla do citire a stării circultulul $251 
ANI 2 ; test hit 1 
AZ BUCLA 4 dacă Q, astenplü 
IN IW 3 cileşte oce 
MOV MA ; înscrie îi memorie 
INS H ; toxvementează adresa 
DOR G : decrementează contorul 
JNZ BUCLA  ; daváü diferit de zero, Feler 
IMP 8 ; altfel iutră lu monitor 


Pe microcaleulatoril FELIX M18/118 rulenxá un prograra de transmisia a: uoteţilor din 
memorie pe linia acrialá. 


Program de transenisic a datelor ze Unia serială 


BIAHT - MVI A, 40H ; cuvintul de cọmnudă pentru 8231 
OUT 7 ; reallaeszà niţiaiizases circuitului 
MVI A BCE ; cuvintul de mod 
OUT  0U7H ; transmite la 8253 
MYL A,27H ; cuvintul de comandă 
GUT r7 : transmite lu 8251 
IXI  M,6000HI ; în H, L adresa de început 
MVE C. 109 contorul de octetl 


BUCLA ; IN QF7H ; itişte staroa 
A 4 3 
H 


iest bit 2 
JZ BUCLA dacă este zero, Byteaptă 


MOV AM ; citeşte octet din memorie 
OUT prH ` Uunsinite la: 8251 

H ; inerementenză adresa 

C ; decrementenzd contorul 
JNZ BUCLA  : dacă diferil de zero, urluare 
BST 9 ; revenim lu monitor 


Cele du programe se execută în aceluşi timp, dar eu menţiunea că pro- 
gramu) de recepţie a datelur se Janzeazü primul, 


8.4. Cuplarea unui JOYSTICK 


Joystick-nl este uu dispozitiv utilizat în conjuneţie cu terminalele grofice 
pentru specificarea munuală, de către utilizator, a coordonatelor unui punct 
pé ecran. 

Joyslivk-ul constă dintr-o articulație sferică, eu o manet& fixată de partea 
sferică mobilă, ale cărei deplasări unghiulare sînt transformate în vuriuţii 
ale rezistenţei electrice a. doi potentiemetri, carespunzind coordonalci orizon- 
tale, respectiv verticale. Variaţiile de rezistenţă sint trunslurmute apoi în va- 
riaţii de semnal electrie, care — la rîndul lor — stut convertite $n valori numerice. 
Aceste valori numerice sint preluate. de sislemul de calrul şi, prin metode 
software sau hardware (la cchipamentele care cer viteză mare de lueru), sint 
traustoriuate fnlr-un punet san cursor grafic, afişat pe ecran, Este posibilă 
afişarea întregului traseu impus punctului curent, adică desenarea comandată 
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de la joystick. Este. de asemenea, posibilă introducerea ua funcţii suplimen- 
tare, care să permită utilizarea acestui dispozitiv în diferite aplicații, 

Cuplarea unui joystick la microcaleulatarul „aMIC“ se face prin interme- 
diul interfeței paralele, utilizînd numai. pairu biţi ai circuitului 3253. Schema 
prezentată în figura 85 contine. două rireuite CDIBAT21E. 


" " Lë: Si MONER 
a DES 
Em 


Së 
Fig, 85. Interfaţă pentru joystick. 


CDh4121E este un circuit basculanL tunuostubil avind două intrári de 
«ondifjonare uetive pe front negativ şi o iubrare aclică pe fronl pozitiv, Tabela 
de funefionare $i configurația pinilor sînt prezenlate în figura 8.6, Durata 
impolsului abținut la iesire se poate varia îutre 20 ns si 28 s utilizind eompo- 
nente pasive externo. Fără componente externe, aviud intrarea Rint conectaLá 


x 
L 
X 
H 
t 
H 
t 
X 
L 


L H 
x Ge 
x Ai 
H Aa 
8 
H 
o 
i 
1 
L 
x 


H -nivel logic 1 
L —nivel logic 0 


Fig. 8.8. Tabela de funcţionare st rontiguralia pinilor Ja cireuitul CDB 421E. 
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la Ver, iar intrările Ces Și Haz/Ces lăsale neconeciate, se obline un impuls 
cu durata spec fică de 30— 35 ns. 


Pentru valori ale capacității externe cuprinse înlre 10 pE. şi 10 pF iar 


ale rezistenței externe cuprinse între 2 KU. şi 40, KC. durata impulsului t se 
eslcuicază cu formula : 5 


"u 


(Biel, Ca mim ei 
în vare capacitatea este în pl, rezistența în KO, iar durate impulsului se ob- 
țiue în ns. 

Pentir delerminzareu valorile potentiometrelor, deci pentru a determing 
puziţia eureniă pe ecran, se furnizează up Impuls pozitiv (Irecere de la Q logic 
la 1 lojrie) pe bitul Q. respectiv 1al portufui C din eirewitul 255. După furnizarea 
unui asemwenea fronl positiv, se ayteaplit prin pròpra o periondă de timp 
care corespunde cu valoarea minimă a rezistenței polentiesaetrufui. (prapía 
stînga perin arizentalé, respecliv pozitia sus penlru vorliegt), după cure 
începe conturizaca ping la fermirüres impulsului furnizal de monustabil 
(trecerea din 1 logje în Q logie a pp Ou ecesluia) şi enre este citil prin portul 
B tu bitul f, pentru ciizenlzlá, 1especliv în bitul 1, pentru verticali. Eucla 
de conlorizae din program este în aga fI colíbratà fncít, cu aproximație, să 
se înregistreze o valoare cuprinsă frire Q-si FFH, corespunzătoare celor diud 
poziții extreme (pe orizaiitută $i — ve asemenea — şi pe verticală), În figura 
8.7 se prezintă semulficuţiu valerilor celor două contaere si modul de determinare 
a adresei oclelului pentru memoria ccrau și al bitului din cadrul octelului de 
date. Deoarece memoria eann esie cuprinsă intre adresele 4000H —5FFFH. 
în pozițiile cele mai scuinificative AT&— A18 se păseşte configuraţia 010 


VERT ORIZ 
6543210 7865432 


Determinà bitul 
în cadrul 
octetulu: 


n1 "uen 
SV Gagn 78543210 
ADRESA 


Fig. 8.7. Determinaren adresei din memoria video si ocletil de 
date, pornind de la valurile celor două contoare VERT şi ORIA. 


Gailulţi biţi de care dispune interfaţa paralelă se pot utiliza peptru imple 
mentava unor fuuctii, În exemplul considerat se utilizează fnt& G biţi din por 
tu! D al circuitului S255, avind următuarele semnificaţii : 

— PB7: RESTART — relaiează programul de joystick ; 

— PB6: MONITOR — execută revenirea În monitor (start. de ln adresa 9) 


— PB5: 


—PB4: 
— P83: 


— PB2: 
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DISPLAY — anulează o funcție anterioură, realizind numat 
afişarea panctului curent, fără să modifice imaginea de pe 
ecran (deci nici memoria video) ; 

DRAW — marchează traseul parcurs de la punctul curent pe 
ecran prin puncte aprinse (biţi 0 în memoria video) : 
PELETE — şterge contururile de pe traseul parcurs de punctul 
curent, adică stinge punctele aprinse. În memoria video so 
înscrie [ în biții egali cu d de pe trasen; 

VIDEO — schimbă polaritatea punctelor de pe truseu (execut& 
video invers). Această funcţie înscrie 1 în hifii egali cu 0, res- 
pectiv înserie 0 in biții egali ou 1 din memoria vidco. 


Pragramul de interfaţă pentu joyslick este seris în limbaj de asamblare, 
lar organigrama, sa este prezeniatà în figura SR, După Jansarea. piojiroinulut 
în execuţie, dacă nu se apasă nici un bulon funcpieaal, ecranul este stes şi se 
afişeazh punctul. curen! care se depluseuză siinultau cu acținuurea joys tick-ului- 


DETERMMAREA m 
EE. Ei 


Fig. 8.8, Programul de interfat pentru Joystick (orgunigrarmnă) 
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Dacă se upusă oricare din butonnele 


DRAW, DELETE saa VIDEO, 


se execută în continuare funcţia respectivă (fără ca să se mențină butonul 
apüssf). pini cind se upasă unul din butoaneie RESTART, MONITOR sau 


DISPLAY. 


` Programu) prezentat în acest exemplu realizează o traducere a pozifici 
articulației jovstick-ului în coordonate pe ecran (respnetiv adresă şi octet de 
date pentru mimoria video). Dezavantajul acestei saluții este o seusibilitate 
deosebită a punctului curent (cursorului) de pe ecran faţă de orice mișcări 
ale tijei dispozitivului. Pentru eliminarea acestui neajuns se pot ntiliza alte 

metade de interfafare a joystich-ului, ca de exemplu : 
— poziția lijei (a articulației) să indice direcţia dintr-un număr finit. 


şi eventual mie de direcții posibile şi viteza 


Wig. 8.9. Interpretarea ee Viei joystick- 
ului. 


; Program de interfaţă pentru Joystick 
ORG Dei 


(trepte discrete de vituză) pentru 
cursorul de pe ecran. Deplasarea 
se face din poziția eent în 
direcția $i cu vileza date de 
joystick. Poziţia centrală a Die) 
eorespunde eu poziția de repans 
a cursorului. Această "solufie este 
ilusteată în figura BA, peulru 
$ direcții posibile şi două trepte 
de viteză; 

— cu ajutorul joystiek-ulu 
se marchează un punct pe ecran 
după care o Tuneţie implementată 
pe sistem reulizeuză unirea ponc- 
tului curent eu noul punct mar- 
cat; în felul acesta se pul exe- 
cutu desene pa ecran cnm o 
precizie maximii, în limitele rezo- 
lujiei disponibile. 


START: LXI — SP,STIVA ; înițiaWzare indicator de stivă 


CALL CLEAR ; şterge ecranul televizorului 
MYI  A,92H : euvint de eomandà ` mod O 
OUT ` 43H : Juserie în £295 


LXI H,4000H ; infila ADR2 
SULD ADR 


MOV A,M. ; eltegte octet diu imeutorln. video 
STA DAT? ; nijialteeazà. DATI 

EA: GALL PORTR ; citeşte port B si test hilil 7, 6, 8, 
JZ ETA ; salt duch PH7=Phi=VRăzi 

ET BAL ; Su GY Leece PR? eouiptenicolat 
JG START ; dacă PLI=0., relansare program 
RAI i în CY trece PB complementat 
IG D ; dacă PB6=0, revenire in monitor 
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EO, secventa DISPLAY peniru PHó— 


nul DISPL i CALL COORD ; üeterminA coordonatele. curente 
sau LHLD ADR? ; în H, L vechea adresă 
LDA DATA ; în H, L vechiul octet 
"TAM MOV M,A ; meface în memoria viden 
Mei LD ADRI i'n H, L noua adresă 
de MOV A.M ; citeşte netetiil de dale. 
ata STA DATA : &olvenzü data 
Ari SHLD ADR2 ; şi adresa 
It MOY BLA ; salvează în registrul D 
te LDA. DATI : Inearcă Un. A nont octet de date 
ANA B ; aprinde punctul curent 
nik MOY MA ; inserie Ip memoria videa 
tras JMP  ET2 ; reluare 
rea El: MOY AB ; ref8et A cu uonținutul portului B 
4 ANI ipti ; leslenzà hitul PB4 
în JNZ  ET3 ; salt dată PHA=i 
de $ secvența DRAW pentra P734—0 
jei DRAW: CALL GOORÐ ; determină ceoardonatele curente 
us LHL) ADRI ; ta TI, T noba adresă” 
te MOV RM i în R octelul de date vechi 
LDA DATI ; citeşte unul octet de date 
ru ANA B : aprinde punctul curent 
te MOV MA : înscrie în memorie 
CATA. PORTR : viteste port B osi test bm 7, 9, 5 
JNZ ETA ; salt dacă cel pulin un bit este. d 
u JMP DRAW i heel, reliare 
ET3: MON AR q Tefuce A cu conţinutul portului H 
D ANI 3 ; testează bitul PD3 
ă INZ EI sait dacă. PR3=1 
3 $ secven]la. DELETE pent PB3=0 
DBLET ; CALL COORD ; determină coorlonskele curente 
j LHLD ADHI 1 Mu H, L mua ndrosă 
- MOY B.M ; eMeste in B vechiul «ctet 


LDA DATI 
d CNA 
i ORA D 


? duearel în A noul aclet 
` eninplemepteazá 
` stinge punului curent 
MOV MA H inscrie Tu memoria. video 
GALI. PORTB ` elegie port B. yi lestează biții 7, 6, ^ 
ANZ BTA ; salt «tacă cel puliu un Bit este Q 
JMP DELET i reluare 
BIŞ: MUT AH i refe A cu eunlinulul. portului H 
AN: A i testează bitul PB2 
JNZ  DISPL : slt dacă PB2—1 
; secventa VIDEO pentru PH2:—0 
VIDEO : CALL. CO ` determină coordonatele curente 
LHLD ADRI i în H, L nana adresă 
MOV. BM ; tu R neietul de date vechi 
LDA ADI zin A noul octet 
CMA : vamptementează octet 
NXHA B 4 eumplementează puoctul curent 
MON M,A 7 serie în memorie 
GALL PORER 3 citește portul E și testează biții 7, 5, 5 
JNZ En : ent dacă cel puţin nu bit este Q 
„MP VIDEO ; reluare 


3 — Micracalculatocul personal uMIC — vol. It 


18 Cuplări de echipamente periterice, înterconectări-şi aplicaţii 


p subrutiua. GOOHD 
1 determină coordonatela punctului curent 
3 turnizează lu ADR adresa din memoria video 
1 pi la DATI ocletul do date 
€OORDIMYI LD,2 ; setează bitul 1 
CALL XY ` determină coordonata X 
STA. OHIZ ; mémorează şi variabila ORIZ 
MVE Di ; setează bitul f 
CALL, XY ; determină coordupatna. Y 
STA VERT ; memorează: în variabila VERT 
y stevenis care determluă adresa pontru memauria ecrou 
t şi actetul de dute , , 
LXI. H,4000H ; Initlalizare H, L 
LDA ORIZ viteste contorul pentru orlrontală 


ANI  OFBH ; anulează hiţii A2-AQ 

RRC ; uduce A7-A3 fn poziţiile A4-AQ 
RH 

RRC 

MOV LA ; încarcă în registrul L 

LDA VEKT ; citeşte cantor pentru verticală 
ANI ? ` prela igit A2-A0 1 

HRC ; aduce informaţiu în pozițiiie A7-A5 
NRG 

RRC 

ORA L : vuncatenează cu informaţia din L 


MOV 1, ^ încarcă îm registrul L culetul mal puin semulticativ de 
uslresă 
citeşte contor pentru verticală 


preia biții A7-A3 


LDA VERT 
ANI QESH 


PRA 


hnc aduve în poziţiile A7-AQ 

sac 

Dat 

uta H vencateniuză cu informaţia diu H 


OY H.A 
LHLD ADRIE 
LDA ORIZ 


încmeă în zepisirul H octetul. mat semmiticutiv óo adresá 
depoude wdresa în ADRI 
citeşte conterul pentru erizenintà 


P 


ANI 7 prela biții A2-AQ 
MOV J,A jueare& în T. 
MY A, HEI Jnitializare netet dain 
INR L 
anA: DGR hL : nuziționează indicatorii 
J7 ADI + dach 1,—9. stop 
RRE ; aliiel, deplasează bit—4 (punct aprins) 
IMP AD2 ; Teluarw 
Ani: SA DATI ; depupe octetul de date la adtesu DATI 


nET 
t subrutina XY 
f poxlioneuzü cantorul pentru orizejntalà 
1 sau penlru verticală 
j furnizează rexuliatul în A (conter între 9 și FFH) 


XYi MVI 4.65 ; bit 0, bit 1=0 «din portul C ai ctreuitulul 8255 
our 42H ; trimite la B255 
MOY A, D ; pezillonégz& pe 1 hitul corespunzător peulyu orizcatafà 
; sau pentru verticali 
DUT 42H ; triniite ja 8255, declpngeazü munostabilul 
MVI C, ÜFFH ; iuițislizare contor 
XY D Ap ; citeşte port B at ciruuitulal: 8255 


ANA D ; test bit. 1/0 


Je 
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Iz XY1 ; așteaptă impulsul inonostabilului 


MVI A.d ; secvenţa se execută de patru ori 
WAIT: MVI B MII ; contor 

DCR B 

JNZ  WAIT-4?2 


A 
JNZ WAIT 
; începe incrementarea cunlorului 
Xv21 INR € 


IN 41H ; citeşte port H 

ANA D ; test bit WI —— 
NOP ; euiibrarea contarizării 
NOP 

NOP 


JNZ XY2 
MOV AC 


aștenptă terminarea bupuisulat 
transteră rezultatul în A 


„RET 
; zona de variabile peopgram 
ORIZI DS 1 contorul pentru orizentalà 
VERT: DS evutorul pentru verticală 


ADRII DS 


1 

2 adresa noul pentru memoria video 
ADR3: DS 2 

1 

t 

1 


adireca veche 

“mul octet de date 
vechiul nctet dp date 
stiva program 


DATI: DS 
DAT21 DS 

DS 
STIVA: DS 1 
END START 


pa EE T 


8.8, Cuplarca unui conventor analog-numerie 


Mieroculenlatorul personal are posibilitatea să  efeclueze inàsurüri de 
mărimi aualogite, eventual extrase dintr-un proces, priu conectarea unui cone 
vertor analog-numeric. Inlerfajarea convertorului lu sistem se face prin circui- 
tul 3255 suplimentar (interfaţa paralelă), Se ponte executa conversa unei 
singure mărimi analogice Sau a mei babitoru suceesiv ; fa acest ultim cuc, 
mărimile analogice sint aduse la iutrarea ceuvertorului prin intermediul 
unui multiplexar analogie. Selecţia intrărilor inultiplexuculul se fare prin 
intermediul circuitului $255, 

Schema de principiu este prezentată în figura 8.10. Se utilizează un multi- 
plexor analogie 16 : 1, iar selecția se realizauză prin biții PC3-PCO ai purtului 
€ din circuitul 8255. Convertorul agnlog-numueric este pe 12 bili, av Jud o intrare 
de comandă START conversie, conectată ln bitul PC? al circuitului 8255. Un 
freni pozitiv pe acrastă intrare lausează operaţia de Cum ersie, Biții de dale 
inferiori DY— D7 sînt. conectati la pionii PAO-PAT, iar biții de date superiori 
T8-D11 la pinii PRO-PB3. De ag mengs, convertorül mai dispune de un semnal 
pentru a anunţa Sfirgitul conversiei, STOP conversie, conectat la pinul PR7. 

In continuare se prezintă lista instrucțiunilor de inirarejieşire şi semaifi- 
cațiile fiecăreia : 

QUT 42H ; biții A3—AO selecteuză uia din cele: 16 intrări analogice 
QUT 42H ; bitul A7=1 lansează operaţia de cunversie l 
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INTRĂRI 


2! TIE EXOR 
ANALOGC 
16 1 


NUMERIC he 


SELECTIE 
$e Stt? 53 


Tig. 8.19. Cuplarea unui convertor analog-numeriv. 


IN 41H ; citeşte în AF bitul STOP. conversie 
IN 46H ; citeşte în A7—AB biții de date D7—D0 numai după terminarea 
` conversiei 

IN 41H ; vitesie în AS AN biții de dite D11—D8 
OUT 42H ; bilul A7=0 resetează convertorul 

Proytamnl cure urmează. execută succesiv conversia unulng-numerică a 
celor 16 intrări inscriind rezultatele în memorie. fiecare pe cite doi octeți fn- 
ecpiud. de lu adresa LISTA. 


i Prugrane de izterțațare o unul convertor usclog-nuinezie 


MYI A934 5; programare cireit $303 
OUT ` 43H ; îrbuțte m portul de comandă 
LNI H, LISTA "HL conţin aulresa în zona de nemore 
MYI HB,0 : selestie intrare analogică 

3a MOY AB 1 transferă vad de seecpie în A 
DUT 42H 1orenelenzü vonyerleral A7-0 
ORI NOH QATL 
OUT 42H ` start converse 

Fra IN Ht ; eileste starea 
RAI. ; A7 STOP trece în CY 
JNG  ET2 ; dacă STOPz, aşteaptă 
IN JÖH ; citegio hiţii de date D7-D 
MOY MA z sorte în memorie 
INX H ; Jjoeremroketzá adress. de menie 
IN Au ; citeşte UI de date D11-D3 
ANI  0FH ;iselcelesza Bii AS-AQ) 
MIN M, À 5 dQuserie In memorji 
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INX H ; hicreinéntéazá adresa de memorie 
INR} B : incrementează contorul de selecție 
ANI EH ; test sitrşit' achiziție 
JNZ En i rela dacă nu este gata 
IMI NEXT : pitici curentă preinerarea: datelor 


8.6. Simularea unui circuit logic 


Microcalculatorul  „aMIC“ paate fi utilizat 1n 'preientarea Schulz 
logice, irnlocuind faza de sinteză a cireniteler şi de punere la punet ei need 
osciloscopnlui, ii nalizorului logic cte. 

În acest fel se poate econtmunisi Timp şi eTort material Pentin eseupliti- 
care, se consideră a interfață simplificată vare conectează un echipament pers 
ferie de iegire la un mterosistem construit Int cu microproresoml 780 (ignea 8.11, 


| 


m — NS 


GEI TOM 
BLU 
< ÈD 


Fig. 8.11. Titeriațărea unui echipament perifériu la un 
' microsistem cu 2,80. 


Interfata este cuplată la magistrală prin următoarele semnale (figura 5.12) ; 
— RESET : aclivarea acestui semnal are ca efect iniţializarea interfeței 
$i abandonarea cvenlualei operații curente ; 


RESET 
'— Rs 
c WE T, 
E Lue 
MAGISTRALA ai PENTRU UN ECHIPAMENT 
SISTEM f ECHEAMENT BER ec 
pi A5 DÉ ——wv- BUET 
IEŞIRE 
Gol ' 


Fig. 8.12. Semiaele conectate la interfața; © ` 
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— TORG activ (0 logie) şi M1 inactiv (1 logic) indică ciclu de IfE ; 

— NVR activ (0 logic) indică sensul transferului (de la UCP la echipamen- 
tul periferic), i 

— AN este utilizai. pentru selectarea interfeței. Deoarece microsistemul 
are un numàr redus de dispozitive de intrarc/iegire, in cadru! octetului de adresă 
de 1/E biții A7—A2 sint utilizaţi pentru selectarea cite unui circuit (fiecare 
bit, activ pe 8, controlează un dispozitiv), iar biții A1 şi Af. eventual pentru 
selectarea porturilor interne. Deci în octetul de adresă pentru interfață bitul 
AB este 0, toţi ceilalți biţi fiind 1. 

— NWATT este conectat la intrarea WALT a microprocesorului, permiţind 
adaptarea vitezei de lucru a unității contrale de prelucrare la viteza echipamen- 
tului periferic- 

Semnalele generate de iuteríalá pentru echipamentul periferic de ieşire 
sint. următoarele : 

— GO, generat la selectarea interfeţei şi utilizat pentru preluarea 
datelor de pe magistrală într-un registru de date; 

— BUSY, generat de activarea semnalului GO $i avind o durată fixi, 
9.5 ms, timp în care echipamentul realizează operația de transfer a datelor 
pe suport extern. 

În figura 8.13 se prezintă diagrama de semnale pentru un ciclu de acces 
la interfaţă (a) şi schema electrică (b). 


BRO 


[t 
Ka? 
WR 

ACC 


au 


Fig. 8.13. Diagrama de semnale ei şi schema (b) ale interfepet, 


Simularea unui cireult logic ` 23 


În loc să se construiască 
[izic această: schemă şi să se veri- 
fice prin metode hardware, utili- 
zind osciloscop, analizor logic. 
ete, ... funcționarea corectă se 
poate verifica prin program, uti- 
lizind mierócaleulatorul „aMIC“. 
Conectarea microcaleulatorului la 
microsistemul cu 280 se poate 
face prin interfaţa paralelă. În 
acest scop se utilizează un circuit 
Z80—PIQ cuplat extern la ms- 
gistrala AN IC"-ului. În figura 8.14 
este prezentat circuitul Z80-PIO 
şi semnalele de cuplare la ma- 
gistrală. 

Astfel, în microsisterul eu 
780 interfata de testat a fost 


Fig. 814. Cuplarea circultulul Z89-PIO fa 
magistrala microcalenlatorului „a MiC“. 


întocuilă cu microcalculatorul „aMIC“ (fig. 8.15). Semnalele interfeței de 
cuplare la unitatea centrală de prelucrare și la cchipamentul periferic de 
ieşire, au fost legate là liniile portului A din circuitul Z80-PIO, programat 


în modul 3 (control bit). 


MICROSISTEM 
CU 


Fig. 0.15. Schema de principiu pentru simularea 
interfeței. 


Deoarece intrarea GE a circuitului a fost conectată la ieşirea 3 a decodifi- 
catorului (CDB442E) de adrese de T/F. (semnalul PIO); iar terminalele G/D 
Sel si B/A Sel la liniile de adresă ABO, respectiv AB1 rezultá adresele porturilor 
din circuit {biții neutilizați s-au considerat f): 


60H : port A dote; 
61H : port A contmol ; 
62H ` port B date; 
BSH : port B control. 


Asignarea semnalelor interfeţei la liniile portului A este prezentată in 


figura 8.16. 
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Programul de simulare cuprinde trei secvente principule : 
— secvenţa de inifializare, inclusiv programarea cirvuitului  Z39-PIO 
(Figura 8.17) ; 


T MEMI JHA 

RESET EMs 

CS Seme 

ai ` t neae 

WS la 

WR ` weien 

AS perdu 

GÙ ecwp. 

Rue parile 

VAM 

TRATARE 

Wig. 8.15. Asignarea semunnlelac intera Fig. 8.18: Răspunsul la intierUperea g2- 
feței la liniile portului A din Z80-PJO. narată de Z00-P1O. 


modi cuvint de mod 
—Á— 


eg 
linlte 2-0 programate pentru intrare 
nde 7 75 programate pentru iesire 


cuvînt SE peniru introruper: 
vrmeozó. masca 
wile care pot genero întreruperite sint ace pe D 
ES AND/OR [există o singurà linie } 
intrerupere activats 


FEH: 
L.e--linla D poate genero intrerupere 
La liniile 7-1 mascate 


ow [0 0000000 
vectorul de adres 
Fig. 8.17. Cuvintele de control pentru programarea urruitu- 
lut Ze&-P10. 
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— buela de simulare ; 
— subrulina de tralare a întreruperi generate de activarea scmnalnlui 


RESET (lehnica de răspuns prezentată sehemati; în figura 8.18). 


i P'rogrumeren ciresidelu. Zu9-P10 


éi B 
ORG  noogH 
TD. A OFEH ` wéLeazá oul 3 (conttel bit) 
QUT (911A ; Lransmite în portul A control 
LD A JELI ; liniile 7, 6, 5 programate pente 
OUT (61HLA ` desire şi liniile 4, 3, 2, L Q pentru intrare 
LD A, HZH ; cuvintul de control pentru intreruperi 
DUT (MHNA EH 
Li — A, BEER — ; mima Bin 9 (RESET) ponte genera 
2 (OUT (HH) A ; totrerüpere 
Lu A. 0 ; veclurü) de întreruperi 
OUT (61H), A : 
; Aițiatizarea sistenralui de întroruperi 14: UCP 
IN2 ` welenzü medul 2 de răspuns Ia inLrerupert 
LD A, 65H ; incarci registrul 1 
LD LA 
LD Hi, 7000H ; adresa subrutinul de tratare a intreruperii 
LD ` (560011), HI ; meminreazà lu udrexa Goen gl GUGL 
; Inlțiatizure semisate de ieșira PIO 
SMUL: Lu A, 80H : Inițializara part A 
OUT ` (003, A : WAIT=1, (Genf, BUSY=0 
kt ; activarea. sislemulul de întreruperi 
; Buchs de simulare a interfelei 
: Aşteaplă suleviarea inlerfetét 
t BUCLA : IN ^, (BAH) ; citește liniile portalul A 
AND IEH ; Belecteazá ul 4, 3, 2, 1 P 
xok 4 ; tesfează semnalele AS, WA, M1, TORQ 
JIR N2, BIGLA ` dacă cel putin un bit nu cate activ aşteaptă 
; Interfața a fost selectată, AG 
IN A (60D z citeşte portul A 
SET RA ; poxiliontază (02:1 
OUT (60H) A ; înscrie in portul A 
s frererea tn f a semnalului no declungenzi manostahilul 74121 
SEC GA i podtlanéazd BUSY 
OUT (GOED, A ; dnecrie în portul A 
3 Aclicneea lul BUSY, rosetează senuinlul. GC 
BES 5A ; pozilionează GO=0 
OUT GGH A i Insele în portul A 
; intirziere de 0,5 îns, Unip necesar pentru terminarea operaţiei de ieşire 
UD A, 3DH ; ennstunta de futtrzlere pentru 
DELAY:DEC A  Ireteenta. ecasufil 2MITZ 
JR NZ, DELAY 
: Lu sfirgit dezactiveuză BUSY şi WATT 
IN A, (G9) : eitesto: porin! A 
SET A : WATE-A 
g RES GA : BUSY e 


OUT — (60H), A ; fnserie în portul A 


; Agteuplà tarminarea accesniul 
STOP: IN A, (0011) î citeşte porlul A 
. AND (EH $ selectează biții 4,3,2,1 


XOR 4 ; inversează M1 (xémnale active ne o 
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JR Z, STOP ` dat] Deg? aşteaptă 
JR LOOP : dacă. ACC—1, rela secvenţa 


; Subrutina de tratare a intreruperii generate 
; de activarea samualulul RESET 


AG T7009H 
EX AR, AP i salvare stare program 
EXX ; numai dacă este necesar — în acest exeinplu ; nu este necesar 
POP HL ; înloculeşte adresa de revenirea din 


LD HL, SIMUL ; stivă cu adresa de relansare a 
HL ; programului de- simulare 
EN AR, AF" ; acestia două Instrnclluni nu sint 


EXX ; netesare — în ganeral sint utilizata pentru refacerea starii 
3 programului intrerupt 

RETI ; return 

END 


8.7. Cuplarea la microcalculator a unei 
miniimprimante MIM4g 


Miniimprimanta MIM4Ọ (produsă la Eleetromureg Tg. Mureş) este o 
imprimantă paralelă cu 40 de caractere într-uu rînd, fiecare coloană de caracter 
fiind formată din 7 puncte. fiecărui punct îi corespunde in sistemul electric 
de imprimare un ae de imprimare. 

Formatul unui caracter este dat in figura 8.19 (7 linii x 5 coloane). 

Fiecare punet din matricea de imprimare este controlat prin software. 

Din punet de vedere mecanic, transportul capului de imprimare se reali- 
zează cu un tambur dispunind de un ghidaj elicoidal ca in fig. 8:20. 


Fig. 8.19. Formatul unui caracter Fig. 6.20. Tambur pentru transportul capului 
(exemplu A). de imprimantă. i 


În timpu! cursei active a capului de imprimare se realizează imprimarea 
a 4f de caractere iar semnalul de stare a capătului de'cursă activă și a cursei 
inverse este la nivel 1 logic. 


La capătul cursei active acest semual devine 9 logic si rimine pe această 
valoare tot timpul cursei inverse. Semnalul de stare este generat printr-ua 


sistem mecanic rigidizat cu tamburul. 


Schema interfeței de cuplare à microcalculatorului aMIC cu miniimpri- 
manta este prezentată In figura 8.21. 
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= ELACa 
ICE INFENFATĂ 


n 
f 
| 


Fig. 8.21. Schema interfetel de cuplare a aeoeaiei c cu minlimprimanba 
MIM49. i 


Deserierea interfeței 


Miniimprimanla este cuplată la microcalenlator prin intermediul unei 
interfeţe periferice programabile 8235, care comandă prin software schema 
electrică de imprimare $i preia starea curentă de poziție a tamburului. 

Portul A ul interfeţei periferice programat ca ieşire asigură cele 7 semnala 
de comandă a sofenoizilor acelor de imprimare precum și semnalul de comandă 
a motorului care acționează tamburul. 

Comanda solenoidului se realizează printr-un étaj de comutare, realizat 
cu un montaj Darlington, prevăzut cu protecție la tensiunile inverse induse 
în solenoid. (dioda D2). 

Comanda acţianării motorului este realizată printr-an montaj Darling- 
ton, care gencrează semnalul de comandă, pentru un triac care asigură excitata 
motorului ta 110 V c.a. 

Imprimarea unei linii decurge astfel: 


Întrucît poziția capului de i imprimare poate Fi presupusă oarecare, comanda 
de acţionare a molarului trebuie să asigure poziţionarea là capăt de cind a capu- 
lui înaintea imprimării. Astfel, ducă semnalul de stare este:pe 1 logie, se comandă 

ralirea motorului pînă la -Anularea acestui semnal, parcurgiadu-se astfel restul 
de cursă directă pînă hi capătul de cursă. Cu motorul acţinuat programul de 
comandă asigură o buclă de aşteptare de aproximativ 7 ms timp in care capul 
de imprimare ajunge la începntul cursei directe. 

"Se testează din nou semnalul de sfare și dacă nu a devenit încă 1 logie 

se aşteaptă modificarea sa (cu motorul acţionat). Programul de imprimare 
presupune existența într-o zonă tampon de date a «ilor 40 coduri ASCII cores- 
punzătoare caracterelor care trebuie imprimate. 
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Înainte de imprimarea unui caracter, din codul ASCII €grespunzilor 
Se penereazà adresa corespondentá din generatorul de caractere, 

Acesta contine, codificat pe cîte 5 octeți, configuratia tuturor earaeterelor 
care pol. îi imprimate, în ordinea codrilor ASCII. 

După prelnarea primului uctel, care constituie prima coleană a earacteru- 
ini, (avind inlotdeauna bitul 7 poziţionat pe 1 logie: comanda muterului 
activă) ucesin este transmis în interfața periferică proepramabilà şi se declan- 
şează o buclă de aşteptare de 0,25 ms, timp în cure solenoizii corespuuziil ori 
sint aefiouafi executind imprimarea, coloanti. 

La terminarea buclei de aşteptare in portul de irsire este înris dear 
bitul de avfionare a motorului pozllional pe 1 logic. Se generează o pauză de 
1,25 ms necesură parcurgerii spațiului dinlre două coloane, iw apoi se repetă 
algoritmul de imprimare culoană. 

Între dovă caractere. consecutive pogramu! generează o pauză de 2,5 ms, 
timp în ere ge acționează în continuate wnokorut. 

Avansul capului de imprimare se poate opri pe parcursul anei linii dar 
vu este posibilă intoarcerea la începutul cursei directe, decil prin imprimarea 
de blancuri în restul niet. După termiuarea imprimării el 40 de carsctere 
se generează burla de aşteptare a căderii pe zen a bitului de stare. După 
accasta se generează o pauză de ordinul 139 mis neeperitoare peulru cursa 
inversă, iar apoi se opreşte comanda mnetorului. 

Durata pauzelor introduse în program sînt astfel alese fovit imprimea 
à 4 purete alăturate să genereze un pălrat. 

Micsgorínd panza între imprimarea a două culuane succesive se poate wärt 
uumărul de caractere imprimale pe o linie. 

Spaţiul între două linii succesive éste. penernt. antrenat prin forma ghida- 
jului elicoidal de pe tambur, deci distanta Între două linii imprimate érte în- 
totdeauna aceeaşi. 


Prezentarea programulni de imprimust 


Tuainte de lansarea subrutinei de imprimare n imei linii, programul de 
imprimare trebuie să asigure încărcarea uuei zone tampon de date avind lun- 
gimen de 40 de octeți, vite un octel penlru fiecare cod ASCII care urmează 
să fie imprimat; După încărcarea zonei tampon, snbrutina de imprimare poate 
fi executată iar pentru imprimarea unci pagini se repetă scevenfa de operatii : 
iucărcarea zouă tampon — execuţie sibrutinà imprimare linie. 

Subrulina de imprimare ia fa considerare mumii coduri cupriuse intre 
20H si 5 FH pentru alte coduri imprimind blanc. Generatorul de caractere 
conține cifrele zecimale. literele majuscule. de la A la Z şi următearele coras- 
tere speciale : blanc, 2, ,5,,$.,* A E, be e ub n et 

Subrutini de afişare a unei linii este prexentatà în cele ce urmează ` 


AMPRIM 1 PUSH H 
LD A, 81H 
QUT 48H ; programaren inturfetel 8255 
XOR A i 
OUT 42H 
LD HL, BUFET! ; Hi-adresa zonei tampan 
LY) R, 28H : 40 caractere pe linie 
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TIP 2: IN A, 42H 
AND ÖL 
LD A, SUH ; se Comandá motorul 
QUT 49H A 
JP zZ, TIPI 
IP TIP? 
TIP 1: LD DE, CONT4 
CALL PAUZA 
Tibu: IN A, 42H 
AND 1 
JP. Z, TIPA 
Typ 2: LD ^, (HL) 
CP 20H 
JP C, TIPE 
GP 00H 
1 JP C, TIPS Codurile ASCII cam nu aparlin 
TIP 4: LD A, 2014 (20, 5r] se inlueniese eu 20H. 
TIP 5: ING. HI. 
PUSH HW. . ; "Salvează adrisu cărieterului următor 
LD Hh, TAB-0A0E 
LD D, 60 
i LD EA 
ADD AL, DE 
ADD HL, DE 
ADD HL, DE 
ADD HE. (LR 
ADD HL, DIS 
LD Gout 
vip n: LD A, (HL) 
OUT 40H A 
D LD DE, CONTL 
CALL PAUZA 
ID A, DOT 
OUT 40H A 
LD DE, GUNT? 
CALL PAUZA 
INC HL 
DEG C 
JP. NZ, TIPG 
LD DE, COXT3 
CALL PAUZA 


se aşleaytă piná ce bilul de state 
devine Én 
puuză de Inecput linie 


D 


se aşteaptă pină ce bitul de sture devine „1“ 


taleulu! adresel din generatorul do caractere a cadulut 
din Aer, 
Nr, de coloane intr-un caracter 


Se earch A255 cu o coleaná de impiimure 


durată de ucțianare a solenoizilut 


cuinándá molor 


pauză intre 2 coloane succesive 


pauzá între 2 varactere 


.. 


POP IT. 
DEG n ; dacă myi sinl cuzaclere de luprimat 
JP RZ, T107 
Tib 8: IN A, 12H 
AND OI ; se așteaptă ca hitul destare să devină „0“ 


Ju NZ, TIPA 
LD DE, GONIS ; pauză necesară cursel Inverse 
CALL PAUZA 
XOR A ; aprire motor, 
OUT. 40u A 
PUP H 
4 RET 
PAUZA : BEG DE 

LD A E 

Le | UR 
JP NZ, PAZUA 
RET. 
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Configurația semualelor la conectorul de interfață cu miniimprimanta 


1. PA? bufferat 9. PB? 17. PC? 
2. PAG bufferat 10. PXG 18, PC6 
8. PAS bufferat 11. PB5 19, POS 
d. PA4 bulterat 32. PB4 20. PCA 
b. PAS bulférat 18. PB3 21. PGA 
6. PA2 buiterat 14. PB2 22. PC2 
7. PAI buf(erat 15, PBI 23. PCI 
8. PAQ bufferat 16, PB 24. PCA. 
25. GND, 


8.8. Cuplarea microcalculatorului cu un programator 
de EPROM 


Programatorul asigură posibilități de pregramare pentru circuitele EPROM 
de tipul Intel 2716. 
Configurația circuitului este următoarea (fip. 8.22). 


7216 


Fig. 8.22. Configurația ter- 
minalelor eireuitulul 2718. 


asia BIR 


Semnificația semnalelor ` 
D90-D7? = date intrarcfiegire 
A0—A10 = adrese 


Vpp = selecție regim de programari 
GE = validare ieşire 
CE = infrare selecție circuit, 


Modurile de lucru ale cicuilulni simt. prezentate În figura 8.23 a. unde 
se pun $u evidență coudiţiile in cure se realizează fiecare regim ` citire, progra- 
mare, verificare. 

Regimul de programare, verificare este selecta! farţînd la intrara Vpp 
o lensiunc de 25 V. : l 

Datele de intrare trebuie să Fic stabile fnainte și după pulsul de programare, 
minimum 2ps. Pulsul de programare durează între 4ă şi Abt şi este livrat 
circuitului la intrarea CE de nivel TTI. (fig. 8.23 b). 


PE S 
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CE/PGM OUTPUTS 
n8) n bu 19- ,13-17) 


Wig. 8.22, Memoria EPROM 3736. Regimurile de lucru ai, diagramele de Hop (o. 


În fignra 8-24 este prezentată seliejua. bloe de interfaţare a programatn- 
rului la inicrocilculator. 

Interfajaren este realizată utilizindu-se adresarea diferitelor operații ca 
porturi. ALL datéle, adresele cit şi comenzile sînl livraln programatorului 
prin iuterfaqu. periferică ps opiamabilă, Did mentorale în registre en. imárcare 
paralelk (CDB495). 


Descrierea funcfiondrü programatorului (is. 3.25) 


Dispozitivul este cuplul: la magistrala «xterui de dale a inicrocalcula- 
torului. necésitind semnale de adresă” (AB3, ABA) şi semnale de comandă 
(RDB. IOREQ). 

Semnalele de adrese şi comenzi sint folosite, pentru decodurea celor 6 
selecții necesare funcţionării programatorului. Transferul de date din/iuspre 
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M&GISTRALA Lo 12nNÀ 


| TAMPEN DE 


MICRG- 
CALCULATOR 


COMENZI 
$t ADRESE 


CIMLTATOR | 


HS) 


SELECȚII 


Fig, 8.24, Interfața mierocaleulator-programator EPROM. 


programator se realizează prin instrucțiuni de intrare/iesire. Cordurile portu- 
rilor I/O sint astfel construite incil selectează mugistrula externi de dute 
prin cuartetul superior şi porturile din programator prin enartelul. inferior- 
m S Adresele sînt prezentate programatorului octet cu octet fiind imcăreate 
în registrele tampoa de adrese iar datele sînt înscrise în registrul tampon de 
dite sau citite din EPROM prin bulferelé de separare de tipul 7409, 
Pentru”protejurea memoriei EPROM ieșirile registrului tampoa de date 
au fost bulfecate cu circuile „trei stări” de tipul 74123. ROS 
Pe pinul de alimentare Vee al circuitului EPROM se aplică tensiune 
de (4-5 V. programată. În tirapul introduzerii respectiv scoaterii circuitului 
2716 din soelu tensiunea de alim ntare mu ajunge la circuit. 
Deschiderea liniilor de ieşire din tamponul de date spre eirenitul EPROM 
sefeurun ndă pria înscrierea unui bit corespunzător într-un registru de comenzi. 
Tuteucit, în Dune de regimul de lueru, intrarea Vpp a circuitului 2710 
este farțată ps 9 V (in regim de cifire) respecliv 25 V (în regim de programare/ 
verificare) s-a previaub un circuit. de comutare nivele de tensiune comandat 
tot priolr-un bit înscris în registrul da comanzi, 
jin tivapal opzràrii eu mimizia EPROM sa prevăzut posibilitatea de pre- 
luare a stării tensiunilor Vpp, resp'ztiv Vee, prin eitirza pe magistrala de date 
a unui cuvint de stare. În funstie de nivelul tesanaii Upp $24 V bitul 0 din 
cuvintul de stare este poziţionat pe 1 sau zaro logic. 
Bitul 1, din cuvintul de stare este poziținnat pe 1 logie dacă EPROM-ul 
un este alimentat cu tensiuni +5 V. 


e 


33 


Capiaraa mieroenlcutatorului cu un programator de EPROM 


| (e ug BETTE] (SFSTZTS] 
| ZE GO T. 
85 jnO , eu 


"Sit OUAS Tuoam ap JojgureiSo:d “cre Bu 


e pod 
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7 Q 
IN. AD Date  D?— D (atre) 

i ! 0 

1 O 
DUT 40. Date DI — DD Ierwe) 

1 0 
QUT £8 Adrese L AQ 

7 2 1 0 
ar: 


[t] 


7 & 3 2 1 
Set | — 
läis 


Fig. 826. Instrucţiuni de I/E, 


OUT Sp 


“Semnificaţia informaţiei trunsferate îu urma apelürii unui pori. reiese 
din figura 8:20. 


Organigrama prugrumului de scficfe]verificare a EPROM-uui 


Deoarece programatorul nu este prevăzut cu posibilităţi de RESET -arc, 
la cuplarea tensiunii este nevoie cu programul Să fie lansat îuainle de a intro- 
duce cipul de memorie în soclu, pentru a poziţiona cureci. registrul de comenzi 
(o conFignratie întîmplătaare a ucesluin pr putea pune în pericol cipul de nemo- 
rie EPROM). După lansare, programul execută iniţializările necezare și afi- 
garva mesajului : 


PROGRAMATOR 2716 
COMPL (D. N) 


În funcţie de răspunsul operatorului D sau N, informația din EPROM 
se consideră complemeuliulă sau nb. În coutinuare 8e alişeuză prompterul (*) 
şi se aşteaptă comenzi. Progrâmul acceptă un număr de 7 comenzi, ale căror 
acțiuni vor fi deserise în continuare. 


Comanda A (alimentări) verifică prezeila leusiunilor de 4-5 V şi +20 V 
la pinii 24 şi respectiv 21 ai soclului in care se ampliseozà EPROM-ul. Co- 
manda constituie un test pentru funcţionarea comutatoarelor de tensiune, dind 
diferite comenzi şi prelufnd cuvîntul de stare. Testul se execută de preferință 
eu soclul liber. 

Comanda V (verificare) operează cu memoriu EPROM În regin citire, 
verificlnd dacă toate locaţiile memoriei sint FF. Dacă există erori de „ştergere“ ale 
memoriei, se va afișa adresa şi octetul corespunzător şi se așteaptă decizia 
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E 


operatorului de a continua verificarea, cu (CH) sau de a reveni la prompter, 
ca orice altă tastă, La sfîrşitul verificării se va afiša numărul tolal de erori 
de ștergere. 

Comanda T (transfer) execută transferul zonei de memorie EPHOM 
cuprinsă între ADR.INCEPUT SURSA SI ADR. SFIRSIT SURSA în me- 
moria RAM de la ADR. INCEPUT DESTINAŢIE, complementat suu mi. 


Comanda G (C omiparure) realizează compararea. unei zone din EPROM 
cu 0 zonă din memoria RAM. Adresele limită ale blocurilor se dau după -lansarea 
cumenzii. 

Fiecărei erori depistate îi corespunde un mesaj cure cuprinde tipul crorii 
(corectabilá sau necorcetabilà, adică „1“ în loc de H" şi invers), adresa, octetul 
din RAM si cel din EPROM. Se. continuă compararea cu (CH), După terminarea 
cemparării se afiscazà aumărul totul de erori apărute şi numürul de erori ne- 
carectabile. 

— format: A ADR (CR) 

Canmnda D (Display) permite afişarea a 8 octeți din memoria EPRUM 
începînd de la adresa menfiónalii în emmandá, adresă care se afişează la înce- 
putul riudülui. 

Tastarea (CR) are ca efect alisurea următorilar 8 aeteţi. 

Comanda D (Programare) realizează cea mai importantă acțiune, Arer 
de înscriere a unei zone din memoria RAM în memoria EPROM, Adresele 
limită a blocurilor au în cazul acestei comenzi urmátóarea semnificație ` adre- 
sele referitoare la sursă delimitează zona din EPROM care va [i însurisă res- 
pectiudu-se convenţia care definește memoria EPROM en sursă iar cea RAM 
ca deslinafie. Tnainle de proprsmarea propriu-zisă se realizenzü compararea 
zonei sursă cu zona destinație. Dacă sint depistate erori necorectabile ele sint. 
afisale şi se așteaptă decizia operatorului. Acesta poute să le ignore și să centi- 
nue curpararea cn (CR). Acest lest care unticipă programaren, dà posibilitatea 
înscrierii unei niemorti EPROM cire deşi nu cste ștenrsă complet, nu are dife- 
rente mecoréctabile fală de informnagia care urmează să fie înserisă. 

Înscrierea fiecărui octet este anticipală de verificarea tensiunii de 25 
de volti care poate fi mai mică de 24 de volti datorită sursei, comutaforului 
5—25 V sau datorită intrării Vpp defecte a cipului de EPROM, Succesiunea 
comenzilor şi îuiînzicrile necesare pentru înscrierea cureclă a unui wiel, sfat 
generate. prin sali ware. 

Se verilicá oclelul înscris, ecmparindu-se cu octetul corespunzător dia 
BAM şi ducă apare erosrea corectabilá se repetă înscrierea aceleiaşi lacaţii. 
Dacă eroarea corcctabilü se menține, ea va fi contorizatà yi se coatinuă progra- 
marea. următoarelor. Jocaţii. Dacă spare o eroare ntcorectabilă ea este afişată 
şi se aşteaptă decizia operalorului. După terminarea înscrierii intregului bloc 
de date se afişează numărul total de erori și numărul de erori necorectabile 
apărute. 

Comanda. 5 permite foserjerea unui singur octet din EPROM. Comanda 
cere adresa $i otetul de înscriere după care îl compară cu ocfetul existent 
în EPROM. Dacă diferența Zeie necorectabilă eå este afișată si se cere decizia 
matei ll Revenirea în monitorul microcalculatorului se face eu comanda 
(CR) 
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8.9. Cuplarea cu un terminal DAF 2010 


Prin intermediul interfeței seriale 8251 ss realizează transferul bidirecpio- 
nal asincron de date între mierocalculator $i un sistem DAF 2919, cu ou rat 


de transfer de 2400 Baus. . 

Talormaţia vehiculată poate. fi transferată octet cu octet, snu sub formă, 
2de blocuri de date, înfurmat HEX-INTELLEC, rare presupune urm3toaren 
structură a înregistrării : 


CR LF:NO ADR T Date Control 


unde r NO este numitrul de octeți da date ai Inreyiatrórli, 
ADI — adresa do început a înregistrării. 
T  — tipul înregistrării, 
Date =— reprezintă maxim 16 ncteti 
Coutrol este summ Ingică n octeţilor din inregistrare. 


Stieşitul de fişier este constituit de o Înregistrare cu număr dn octeți 
zero iar adresa corespunzătoare va fi adresa de salt în figierul Inc&rcat. 
Progriumul de transmisie a nani fişier, la lansare așteaptă adresa de 
început si sticşil a blocului de date far la sfirgitul transmisiei formează autoinat 
Înregistrarea de sfirșit fişier. 
Programul de recepție a umi fişier, aşteaptă după lausare, adresa de depla- 
sare a blocului de date faţă du adresa da început a fişierului (intrinsecă). 
Secvența de programare a interfeței seris 8221 este prezentată în cunti- 
mure : 
MYI A, JEAN NVI A, 15H 
OUT gH OUT din 
Semnificația este următoarea ` 2 biţi da stop, control da paritate dazu 
caracter pe 7 biţi, viteza dè transmisie = rala da transmisie X165, nolivare 
Lransmnisie şi recepție, anularea erorilor dia registrul du stare. 
Subratiua d» transmisie a unui caracter allat în memorie la adresa HL 
este prezentată in continuare ` 


TCARÓ) ` MOV A.M TO: IN WH 
` OUT oan ANI 01H 
J2 PO 
RET 


, Recepţia unui octet de la interfaţa serială este realizată de următoarea 
subrntină : 


HCAR: Geen IN GOH 
ANI Gët ANT TFH 
IZ RCAR HET 


Programul de transinisie lisier preia din memnrie blocuri de. 16 ncbeti, 
ormatează informația în HEX-INTEGLE şi calzatoază suma. ds control 
ealizind astfel o iurazistrare. Asast ciclu esta repetat pini la tarminărza bls- 
uni da date, complotinda-ss tişierul cu înreziztearai nulă. i 
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Programul de recepție fişier transieiă în nwmorie turegistrări suceesive, 
prelucrind secvențial fiecare octet şi werilictnd la-slîrşit suma de control. 
' [n cazul apariţiei unei crori programul afişează mesajul: EH : adresă, 
unde adresa constituie începutul înregistrării eronate. 

În momentul reaepfiei unci înregistrări nule se face ieşirea în monitorul 
microcalculaturului. i 

n toutinuare se dă configuraţia semnalelor la conectorul de interfaţă 

ca un DAF 2010: 


1. GND D & STRAP pL DAF 0-+10 neutilizat 
2. TxD 5. STRAP pt. DAF 7. GND 
b Hx D 8, — 

270, — 


8.10. Interfața cu un minirobot 


Minirobotul de luborator M35 elaborat la ,Elecirotimig" “Timişoara 
este un robot experimental cu aplicabilitate în industrin glectronică pentru 
manipularea de piese și componente de mici dinmwusiuni gi givutale redusă 
(2,5 Nm; greutate piese 300g, deschiderea dispozitivului de prehensiuue : 
7 em i). Minirubolul dispune de 5 grade de libertate fiind prevăzut cu D motoare 
pas cu pas (20 W) aclionate în buclă deschisă. 

Miuirobotul este reslizat constructiv cu elemenie mecanice din materini 
plastic, transmisia este asigurată prin fire, posedá un panou de învăţare şi o 
tastatură cu electronică de urmărire. 

Mişcările pe care le poate exeeüta acesta siut: 

— pivotarea (rotația în jurul axului principal) 

— mişcările braţului si antebraţului — . i 

— mişcările de flexie si supinație a mfinii mecanice. 

Minirobotul este interfatat la mieroealculator printr-o interfața pezilerică 
programabilă, avînd cele 3 porturi programate ca ieşiri. 

Prin aceasta inleriață microcaleulalurul asigură 8 cumenzi de sens de 
mişcare şi 8 comenzi de laet repartizate ficcărui molar pas eu pas. (1 comandă 
de seus mișcare şi 1 comandă de last la fiecare motor). 

Comenzile microcalculator ului sint prelucrate fnir-o interfață de acfio- 
nare peniru motoarele pas cu pas. 

Vileza de execujie a nugcarior este controlată soltwarc, iuterfa|a de actio- 
pare intervenind la depășirea valorilor prescrise pentru semnalele de tact 

Controlul mişcării accelerate şi decelerate este asipurat tot din interfaţa 
de acţ 'onare. 

. , Programul de aplicaţie este seris într-un limbaj de nivel înalt, ARM 
BASIC, cu sübrütine În limbaj maşină Z8. Între pesibilitàtile software remat- 
câm posibilităţile de elaborare a unor modele matematice de trausforinări 
de. coordonate, un formalism matricial, posibilităţi de comandă în coordonate 
carteziene ele, Comenzile specifice ARMBASIC au fost utilizate si la simularea 
mișcărilor ünui minirobot în cadrul a două programe de aplicaţie : un program 
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de invátare pus eu pas a execuţiei unei mişcări şi un program de-execuţie a unei 
traiestorii impuse. Programul de nvàtàre permite simularea asționării pas cu 
pas a motoarelor ; aducind minirobotul in poziții succesive, la comenzi de 
operator. 

„Cel de-al doilea program realizeuză siinulnrei mișcării miinii mihirebo- 
tului pe o traiectorie a cărei coordonate succesive sînt calculate scevențial 
de vălre microcaleulator. Simularea minirobotului pe microcalcutatorul aMIC 
e Weed prin afişarea stilizată pe display a pozițiilor succesive ale mini- 
robolului. 


8.11. Echipament de testare pentru microsisteme 
orientate pe magistrală 


Structura hardware a microcaleulatoralui „AMIC? constituie procesorul 
„master“ ul unui sistem biprocesor de test ip curs de elaborare la ITC. 

Sistemul de test asigură posibilități de fabricaţie, service $i iastalare 
de aplicaţii a microsistemelor cu circuite LSI organizate pe principiul magistralei. 

Echipamentul realizează o testare funcționul dinamică pe principiul 
emulárti. 

Stimularea plachetelor sau microsistemelor sub test este asigurată de emu- 
lator far evaluarea rüspunsurilor se face prin sondá mobilă cu analiză de semnături. 

Resursele sistemului LSIMINTTEST. sint : memorie utilizator în procesorul 
master 48 Ko, memorie de emulare 3 Ko, &istem de operâre şi interpreter de 
test rezidente in EPROM, procesor miaster (16 Ko), monitor de depanare/ i 
testare (rezident sau încărcat în memoria externă). programe de test și module 
de test functional încărcate din memorie externă, program de condus sonda 
mabilă, monitor de. emulare (2 Ko). 

Memoria externă este realizată cu minifloppy sau casetă audio. Sistemul 
de test are ca display wn receptor TV obișnuit; dispune de miniimprimantă 
MIN39, arc disponibilit&ji de transinisie/veceptic serisdá de informații, putind 
constitui un posl de lucru al unei cchipament de test complex, multipost, LST 
TEST. 

Sistemul de Lestare are posibilităţi de punere lu punct şi de editarea pro- 
gramelor de test, avînd interfalat un programator. de memorii EPROM. 

Emulatorul dispune de următoarele facilităţi : 

Stimularea În timp real a plachetelor sau maicrosistemelor sub test cu 
trei categorii de stimuli : primari, module de Lest functionale si stimuli defa- 
vorabili, memorie de amulare relocabUS în spațiul de adresă al procesorului 
emulator, ceas de gardă. generare şi tratare de întreruperi, memorie trasoare, 
emulare pe mierosisteme cu microprocesor 780 sau 8089. 

POD-ul emülatorului exte constituit din microprocesurul 8680 sau 489, l 
bulferele de interfață și controlerul acestora. Interventia pe placa saw micro- 
sistemul ‘sub test se face ia nivelul DIP-ulwi pe soclul microprocesorului 
emulat. Un translator de bus asigură posibilitatea testării microsistemelor 
organizate pe diferite standarde de magistral. El este compus dintr-un mandul 
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de unitate centrală specific, un modul de memorie specific și o placă adaptoare 
de bus. Sonda nobilă asigură lacilitüti de ridicare a unei semnături, discrimi- 
neazá nivele TTL, MOS. analogice, lucrează sub comanda procesorului master 
şi emulatoruhii. 
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Fig. 8.27. Schema bloc a echipamentului de test T.S]MINITEST. 


Sonda este ghidată prin program pentru localizarea defectului pe placa 
sau microsistemul sub test. 

Schema bloc a echipamentului de test LSIMINITEST se prezintă In 
figura 8.27. 


8.12. aMIC-ul în unităţi de deservire pentru mașini-unelte 


În cadrul unci lucrări iu curs dé elaborare la TTC în colaborare cu o Intre- 
prindere conslructoare de mașini-unelte, microcaleulatorul aMIC se constituie 
ca o unitate de deservire a maşinilor-unelte, preluind următoarele funcțiuni 1 


— editare de bandă perforată ; 
— programare EPROM ; 


M 
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— miniconsolà pentru automate programabile ; 

— imprimare programe. — 

Editor de bandă perforată 

Resursele hardware ale microtaleulatorului sint completate cu inter- 
fațarea unui lector (respectiv perforator) de bandă perforată. Editarea de bandă 
perforată. presupune existența unui program de citire/scriere a benzilor, cum 
şi un program de preierare a textelor în limbajul specific maşinilor-unelte. 

întruit acest limbaj nu este Iuch xlandardizat este necesară o mare 
flexibilitate a programului, astfel incit să permită apelarea, modificarea, in- 
scrierea (respectiv ştergerea) unor insirucțiuni sau linii de program, cu relnoa- 
vea corespunzătoare a textului. 

Programul permite şi copierea benzilor perforate, prin controlul numărului 
de linie sau a unei anumite instrucțiuni. , 

Programator memorie EPROM . 

Dispozitivul reprezintà o varianlă-cu posibilități lărgite de programare, pi- 
tind programa circuite 2708 sau 2716: Informatia se încarcă într-o zonă RAM 
tampon ín mai multe. moduri: 

— prin citire de pe bandă perforată 

— prin citirea unei memorii EPROM 

— prin introducere manuală 

— de În minicousolu pentru automat programabil. 

Mieroconsola peniru automate programabile (AP101, AP117). Sistemul 
poate fi cuplat la automatul programabil, asigurindu-i o zonă de memorie 
RAM în care se incarcà programul de control al procesului. 

Prin software se poate preluera uşor informația înscrisă 1n memoria 
RAM permitind câutareu, ștergerea, modificarea, înscrierea wwf Sustrurțiuni 
specifice &ulomatului programabil. După punerea li punct a programului, 
acesta este Însuris în memaria EPROM, conslituindu-a ca program rezident 
pentru automntul programabil. 

Sistemm] permile, de usemencă, printr-un program adecvat, simularea 
execuţiei programului, fără cuplare lu proces, variabilele de intrare. putind 
fi couleotate şi znodilicale la interven[ia operatorului, iar variabilele interme- 
diare şi cele. de ieşire putind fi urmărite pe display. 

Se poate testa, asilel, urmărirea şi conirulul procesului (in condiții defa- 
vorabile) şi se poate optimiza programul de conducere u procesidui 

Tn cazul simulării variabilelor de intrare în condițiile unw preces în buclă 
închisă, se verifică eptimalitatea programului de control al procesului inninte 
de realizarea ‘aplicației, sistemul prelnind funcţii de sistem expert, 

Interfafarea miniimprimauteci MIM40 

În cadrul aistemului de deservire a müzinilor-unelte. funcţia de imprimare 
este utili pentru a asigură un suport de ieșite al programelor în procesul prelucrării 
şi modificării acestora. 

Soluția de interfajare a miniiraprimantei la sitem a fost prezentată 
iu paragraful 8.7. 
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8.13, Sistem de înregistrare/redare a parametrilor 
semicontinui de proces 


Acest sistem este destinat, într-o primă variantă, achiziției parametrilor 
de sudare cu arc electric (tensiunea arcului U,, curentul de sudare 1, sub forma. 
unci mărimi nominnlizate 1n domeniul 0—10 V şi viteza trenului de sudare 
Va sub forma unui tren de impulsuri de maximum 5 kHz) cu rezoluția de 10; 
biţi si timpul de egantionare de 209 ms. Parametrii achizifionagi pot [i memorati 
pe uu suport extern (casetă. magnetică audio sau (opțional) bandă perforată). 
şi tipăriţi off-line pe o miniimprimantă paralelă. De asemenea, confinulul unei: 
Înregistrări din proces poate fi redat sub forma unor mărimi analogice de comandă. 
a procesului. Nomărul de cânale estei maximum 16. 

Configuraţia completă are următoareai componenţă: 

— modul unitate centrală (structurat pe varianta microcalcülator perseuab 
aMIC) prevăzut cu 2 interfeţe paralele (una funcțională pentru lector/perforator 
de bandă şi una de intrare peniru tastatură), interfaţă serie RS232C (destinată. 
comunicației cu DAE2010 sau cu alt sislem de calciul), memorie RAM dinamică 
(48 Ko) şi EPROM (16 Ko), programator on line pentru circuite EPROM. 
tip 2716, 2732; 

— modul interfaţă universală, curé realizează inlerfeje cu modulul de: 
afişare (D digifi), cu imprimanta tip MIMA40 (40 caractere); prin seneralor de 
caractere pe coloane rezident într-un ROM, cu unitatea de casetă (8251), cum 
și un ceas programabil de timp real pentru prescrierea frecvenţei de eșantionare 
pin la 160 Hz; 

— serlar de interfete specifice cu procesul, care preiau semualul de la 
trailietoaréle ce Lénsiune, curent; temperatură şi-l încadrează în urma modulării, 
optnizalării şi Grmudutării în domeniul 0—10 V cu croore mai mică de 195; 

— periferice înglobate ` niodu! utware 6 digiti, imprimantă 1040, (in- 
clusiv wadul de ucţionure) unitate. de casetă audio, tastatură caracter, J10 cifre 
şi func[iunulá ; 

— ennectori de interfati cu Icetor T.B59/perioralar. PE56, cu unitate 
de catelü UCM101, pentru parametrii proces. 

Sistemul lucrează in regim de tulreruperi. mod IMI, mascabile prin soft. 
Ele a Înregistrează futr-un registru de 8 biţi, cure este citit şi decodificat prin 
prosti m În urma generüri unui semnal unie de întrerupere. 

În regim de proegrznire, operatorul ponte prescrie prin dialog ; 

— numărul! eannluliüi ; 

— tipul cunalului : 

— lipul de esautionare (100 Hz) ; 

— funcţia. înregistrată |] 

T» figura 8.28 se prezintă schema bloc a sistemului de înregisirure/redare 
A parametrilor de proces. 

Software-nl aplicației asipară urmărirea p ocesului în timp real, fiind 
realizat in linbuj maşină 8080 (sun: 289). 
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fig. 8.88. Schemă bloc a sistemiului de lüregis- 
tnareiredare a parametrilor de proces. 


8.14. Microcalculator (de laborator) pentru prelucrarea 
datelor provenite din analiza cromatografică 


Pentru a evita costul ridicat al unei implementări specifice şi pentru 
a putea destina sistemul și altor. proceduri de analiză fizico-chimică, soluția 
ateasă la ITC Timișoara recurge la o variantā cu un anumit grad de modulari- 
tate, funcţia principală de sistem fiind preluată de mieroealculatorul. aMT&, 
en resurse proprii de memorie 64 Ko (48 Ko RAM si 10 Ko EPROM). 
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Acest modul înterfaţeuză tastatura de caractere și funciionalà, un DAF sau 
monitor TV ca echipament extern de viznilizare și asigură o interfață de date 
paralelă. 

Restul periferiei este ratat pe modulul de interfață care gestionează impri- 
mania paralelă de tip MIMAÓQ, îuulobată în echipament, subsistemul de achi- 
zilie a mărimii de analiză, un ceas real de 20 ms şi ceasul de eșantionare. 

Pe acelaşi modul sînt rezidente şi registrul de folreruperi şi mágtile 
de îuLreruperi. 

Conversalia numeric-analogicA de tip interactiv se realizează pe. 15 biți; 
plus un bit de semn, în domeniul —100 mV — +1 V, avînd perioada de egan- 
tionare sincrouizută cu frecvența refelei, pentru rejectia zgomotelor de înaltă 
frecvenţă. 

Semnalul este preluat diferențial pentru a reduce. zgomotele induse prin 
DEE 

Semnalul de analiză provenit de la cromatagrut se prezintă sub forma 
unei suressiuni de viituri (peak-uri). 

Fiecare „peak“ apare la un moment de timp care trebuie corect estimat, 
întrucit identifică lipul unui anumit comipouent diù arnestecul de analiză. 

Integrala .peak"-ului dă o informatie cantitativă asupra cowmponeutului 
detectat, astfel încît, în final, se poate face o estimare exactă a compaziției 
procentuale a probei analizate. 

Soľkware-ul sistemului este scris în limbaj de asamblare 8089 (14 Ko 
program si 12 Ko zonă de date, perinițiud integrarea a 350 peak-urí). 

Pachetul de programe este organizat modular și cuprinde ua monitor 
cu [acilităţi de. autodepanare, task-uti de dialog, de intésrare, de curecție, de 
calcul al raportului (precizia de calcul : 24 biţi). 


Capitolul $ | Limbajul BASIC 
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Manual practic 


9.1. Introducere 


BASIC (Beginners All-purpose Symbolic lustruetion Code) reprezială 
un limbaj conversationa! de nivel inalt. Pentru execuţia programelor de apli- 
valie serise în BASIC se folosese cc] putin trei metode distincte : interpretarea, 
compilarea şi combinarea lor. Pachetul software, eare foloseşte metoda combi- 
uată, poartă numelo de cormpilutor/interpretor. sau pseudo-compilator. 

Fiecare din metodele de execuție à. programelor de aplicaţii are avanta- 
jele şi dezavantajele ei. In general, ulegerca meledei este determinată de apli- 
cație, de utilizarea particulară a culeulatorului, 

În tivapul execuţiei, un inlerpreter analizează fiecure instrucțiune, veri- 
fià existenţa erorilor, apoi cItetueazà functia BASIC solicitată, Pentru y exe- 
cuta funcțiu respectivă, interprelurul Lràduce instrucțiunea dată în codul 
ASCII într-un număr de inăLrucțiuni maşină cxecutabile, pé care le execută 
în continuare. Acest proces se repetă la fiecare inisiruețiune BASIC, chiar 
ducă instrucțiunea respectivă apwe de mai multe ori in cadrul unui ciclu. 

Modul interpretativ de execuție presupune existenta în memorin cáleula- 
turului a întregului program BASIC-sursă, sub farma unei liste de linii marcate 
cu etichele numerice. Fiecare instrucțiune de ramificaţie impune ca interpretu- 
rul să caute într-o listă de numere de linii, pentru a găsi instrucţiunea dorită 
În aceeași manieră interpreterul va căuta o anumită variabilă în cadrul unci 
liste date. 

Metoda bazată pe compile presupune traducerea programului sursă, 
seris în BASIC, fntr-un fişier abiect relocobil. În continuare, un program de 
sistem, denumit Editor de legături, va înlănţui toate fişierele ubicet relacabile 
produse, cit. şi fișiere abiect extrase dintr-o bibliotecă, pentru a produce fişierul 
executabil tu cod mașină. Programul obiect compilat, va fi executat. de 25-30 
de eri mai repede decit se executa în maniera interpretativă avelasi program 
BASIC sursă. 

Compilarea si editarea de legături trchuie repetată la fiecare modificare 
executalá în programul sursă. În cazul interpretorului se va modifica cu ajutorul 
unur facilităţi de editare incorporate, linia respectivă din programul sursă, 
după care se va trece direct la execuţie. 
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Astiel, un programator poate utiliza un inte. pretor peatru a pune la punct 
un program sursă BASIC, după care poate utiliza un compilator compatibil, 
pentru a ohţine un program obiect, care poate fi executat într-un timp loarte 
scurt, corespunzător aplicației date. 

În comparaţie cu un.compilator, interpretorul este mult. mai feftia. 

Metoda bazată pe pseudo-compilare asigură un compromis între viteză 
şi cast. Astfel, costul unui pseudo-eompilntor este apropiat de cel al unui inter- 
pretor. în timp ce viteza sa este de circa cinci ori mai mare: decit a acestuia 
din urmă. Viteza relativă a psendo-ompilatorului depinde de iustructiunile 
programului, de tipul de date şi de gradul în care codul rezultat necesită trans- 
latarea în timpul execuţiei, | 

Varianta de BASIC aleasă pentru aMIC are un caracter interpretativ. 
ceea ca n [ace extrem de atractivă pentru punerea Ja punct a programelor. 
Marea majoritate a aplicaţiilor pentru acest calculator nu intră în categoria 
aplicațiilor de timp real. 

În cazul în cate se impune o viteză de execuţie mai mare, se poate Io- 
losi metoda apelării unor subrutine, serise $n limbaj de nsamblare, pentru acele 
rone din program care trebuie executate cu viteză mare. 

Asemenea situaţii apar în Gadrul aplicaţiilor de colectare n datelor sau de 
conducere a uunr procese, Pentru a realiza accesul lu $ubruline serise în limbaj 
de asamblare se foloseşte instrucțiunea CALL, care inchide un nume de varia- 
bilă (un indicator la 0'colul& de memorie In care se află puuetul de intrare în 
subrutina scrisă în limbaj de asamblare) și dach este necesar, a listă de para- 
metri care trebuie: transferați subrutinei. 

Pentru punsrea là panet a programelor în limbaj de asamblare se poate 
folosi programul de sistem MATE (Mnailor-Asamblor-Text. Editor), programul 
asamblat. Tind stocat. pe caseta maanztică. In continuare el va fi incireat în 
memoria operativ a eulculataruhii o dată cu programul RASIC-sursă. Înlr-uaul 
dia parágrafele acestui capitol se dan exemple pentru ilustrarea acestei tehnici- 

ininulatorul aMIC are disponibile două versiuni de interpr «toare BASIC. 
Prima versiune reprezintă un subset al calci du-a doua. fn sensn! cà nu posedă 
instrucțiuni malriceale, inslruepiuni da preduergre gralicá şi instrucțiunea 
CALL. Prima versiune uecesità un spațiu de 8 Ko in memoria PROM. în timp 
«e versitass a dota uscesilà un spațiu de 14 Ko. Se menţinnează si posibilitatea 
îmârcării interpretorului BASIC de pa caseta maanztică, în scopul redurerii 
nomărului de circuile integrate de memorie PROM al căror cost, este relativ 
ridicat, 

Operaren sistemului. Elemente introductive privind programaren în 
limbajul BASIC 

În vedorea unei sesiuni de lucru, calculatorul se consotează la infráróa 
de antenă a unui televizor si la o tastatură alfanumerica *. Televizorul va fi 
folosit că echipament de issire, în timp ca tastatara va juca rolul unui echipa- 
ment de intrare. 


* AmAnunfele privind eonactavea la un televizar enmere ilal, ctt d tastatura stat date tu 
enpitalul 3 aj lucrării, 
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După alimentarea de la reţea a televizorului şi selectarea canalülui cores- 
punzütor se va alimenta si calculatorul, prin intermediul sursei proprii, şi se 
vu acționa tasta RESET. În acest moment pe ecranul televizorului va apărca 
un text, care indică faptul că sistemul se afiă sub controlul programului monitor. 

D continuare se pat introduce, de ln tasiaturi, comenzi monitor (descrise în 
capitolul referitor Ja manilorul sistemului). Pentru a lansa BASIC-ul, trebuie 
acționate tastele B şi RE] UBN. Pe ecran va apărea mesajul READY, indietnd 
posibilitatea iniroducerii unor comenzi şi instrucțiuni BASIC. De exemplu, 
dacă se dorește calculul valorii unei expresii arilmetice : 30—2.2354.4 : 2.3, 
so va introduce de la tastatură următoarea instrucțiune : 


16 PRINT 30 — 2 SEIT 


Se observă că instrucțiunea începe cu o etichetă pumerică (10). La sfir- 
şitul introducerii instrueţinnii trebuie acționată tasta RETURN. În continuare 
liniu (instrucțiunea) introdusă este depusă în memoria calculatorului, fără 
a se exccula. Se cpustată că operaţiile de înmulţire, împărţire si ridicare la pu- 
teze siut descrise prin simbolurile *,/şi 4 . 

În memoria caleulatunidvi pat fi introduse de lu tastatură succesiv mui 
multe instructiuni, avind numere de linie diferite. Un prop de instrucțiuni 
depuse in memorie poartă numele de program. 

Pentru a executa o iustructinne (un program) depusă în memoria calcula- 
torului, trebuie dată comanda RUN (urmată de RETURN), Astfel, introducing 
instrucțiunea PRINT, şi apoi comanda RUN, calculatorul va afișa pe ecran 
rezuliatu! expresiei (18), priuritaten În execuția operatorilor fiind cea obig- 
nuită (întîi ridicări li putere, apoi înmulţiri şi împărțiri și în final adunări 
şi scăderi). După tipărirea rezultatelor, pe ecran ac va allen nn mesaj de éróure 
cu numărul 1, indicind faptul că programul executat. nu s-a terminat cu o in- 
structiune de oprite a execuției (STOP san END). Pentru a evita nceastá eroare, 
se va inlroduee după PRINT o mik instrucțiune: 20 END. 

Exeentind din nou programul (format din două instructiuni : 10 PRINT 
:-. Şi 20 END) şi folosind fut comanda RUN, nu se va mai obţine mesajul 
de. eroare. i 

În instrucţiunea PRINT pot apărea mai multe expresii (după necesităţi) 


separate prin virgulă. De exemplu instrucțiunea : 
19 PRINT 1+7, 3, b, 5624 919/4 


Va tipări cinci valori, cite: două pe un rînd Separate cu spaţii. De notat 
că ecranul televizorului esie împărțit în 32 de rînduri a 30 de caractere fiecare. 
În cazul folosirii virgulei tn Instruetiunea PRINT valorile sînt. afișate începînd 
din poziția 1 şi apoi din poziţia 15 a unui rind, rcalizindu-se o tubulare automată. 
Pentru a nu st lăsa spaţiu (tabula) între valorile tipărite, se foloseşte separa- 
torul ; între expresii, 

Astfel, 10 PRINT 8; 15/2—1; 217; 19 va tipări cele patru valori 
8,6.5, 128 si 19 pe àcclngi rind (fără tabulare). 

Pentru a meroora o valoare (un număr) care va fi folosită ulteriór în pro- 
gram,se va utiliza o variabilă literală, căreia i se va atribui valoarea respectivă. 
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Limbajul BASIC dispune în acest sens de instrucțiunea de atribuire 
LET, cu ajutorul căreia se stochează în memoria calculatorului mărimi ce pot 
fi stilizate ulterior. Astfel, folosind variabilă X: ` 


5 LET X=15 30 PHINT X 
10 PRINT X 40 STOP 


20 PRINT X/2, X t 2—X 41 


valoarea tipărită de instrucțiunile Të și 30 este acecaşi (15). Instrucţiunea 
20 utilizează valoarea variabilei X, fără s o modifica. 


9.2, Elementele limbajului BASIC 


În continuare vor fi prezentate cîteva noțiuni necesare pentru descrierea 
unci probleme în limbajul BASIC. Cuvintele folosite în limbajul BASIC formează 
yenit limbajului: Ele se scrin după reguli precise, date de sintaxa. limba- 
jului. 

Caracterele întrebuințate în BASIC penlru alcătuirea cuvintelor sînt: 

—literele mari alc alfabetului: A, B, C, ..., 7 

— cifrele: 9, 1, ..., 9 

— caractere speciale: + — */ 52" zf (ix? 

9.2.1. Constante. Cunsluntele sînt de două tipuri: constante numerice 
şi constante şir sau texte. În continuare, în lipsa mentionàrii explicite, prin 
constantă ne vom referi li consiante numerice, Constantele șir reprezintă 
arice şir de caractere introdus între: ghilimele. Do exemplu: “STUDENȚII 
HARNICI", “INTRODUCEŢI DATELE“. "127-5", etc. 

Constantele numerice utilizate în BASIC sînt reale. Els pat avea, de exem- 
plu. următoarele exprimări : 


Ka 123.45 44 —0$.36 42321 


De asemenea, la fiecare număr de mai sus, sc poate adăuga un exponent, 
utilizînd litera E. Expouentul este un număr intreg. El indică puterea lui 10. 
cu care se înmulțeşie numărul. 

Astfel, următoarele constante sint cureute : 


25E —1-2.5 123,451.12 —6.3612— 15 


Intern. constantele sînt reprezentate în formatul cu virgulă mobilă, 
pe patru oeteti. Primii trei octeti conţin mantisa, subunitară şi normalizatà, 
jar oetetul patru contine exponentul : 

| M E E | 
H 23 24 31 
unde 3 

M este mantisa nocmalizatà 0.5 xz M « 1 

S este un bit eate reprezintă scmmil maatisei (1 pentru negativ). ` 

E este exponeutül în complement faţă de doi. E reprezintă putera 

lui doi, cu care so înmulțește mantisa. 
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Conform cu această reprezentare interni, cel mai mic număr manipulat 
va fi (în modul); 2.71051E-2 lar cel mai mare : 9.22337£18. Din reprezentare 
Se observă că sint păstrate upróximativ 7 cifre semnificative, 


9.22. Variabile, Variabilele utiliaate în BASIC pot fi, ca şi constantele, 
de douá tipuri: variabile numerice (pe care le vom numi, ps scurt, variabile) 
80 variabile şir. 7777- 

Variabilele şir reprezintă şiruri de caractere affamumerico. Numele u nei 
variabile şir este format dintr-o literă urmată de caracterul $. 


Exemple: A$, BS 


Se pol utiliza și tablouri de. variabile șir, tablourile fiind formate «hu 
mui multe vuriahile şir, cu aceeaşi lungime si acelaşi nume, 

Numărul şi lungimea variabilelor sir ce (ormează un tablou, trebuie 
-dezlarate, într-o instrucțiune DIM, înainte de utilizarea tabloului. Variahilele 
şir ce formează un.tăblau, vor fi specificate priu utilizarea indicilor. De exemplu, 
“dacă A $ este un tablou de zece variabile şir, a cite 30 de elemente (caractere) 
fiecure, atunci vom referi variabilele şir prin: A$ (I, A$ (2), .... A 9 (10. 
iur tabloul AŞ va fi declarat. într-o instrucţiune: i 


DIM AS (10, 50). 

au unele aplicaţii, este necesară utilizarea unor porțiuni (subjiruri) din- 
"Dag șir, desemnat de o variabilă gir. Pentru speeifieurea subşicurilor uni 
variabile şir, se foloseşte notația : (nj TO ne) asaciulă numelui variabilei şir ; 
m, este indicele primului carneter ai subgirului, far na este indicele ultiinului 
“caracter al subyirului din variabila sir. Da exemplu, fie B $--«123ABC", sub- 
şirul B $ (2105) —"23AB". . 

Indicii n, $i ng pot. fi constante, variabile suu expresii, valoarea lor fiind 
cuprinsă între I şi dimensiunea (lungimea) girului. În cazul absenței indicelui 
n, Se consideră că subşirul lacepe cu primul caracter al şiralui, de exemplu ` 
"BS (004) —7123A". D 

În cazul absenței indicelui nj se consideră că subgirul se termină cu ulti- 
-mul caracter al șirului, de exemplu : B $ (3TO)æ“3ABC“. Pot lipsi ambii iudici, 
az În cure subsirul este identie cu girul (variabila şir) dat. Exermplu : Bä (10)= 
=B $ sen (ABC, 

Se pot utiliza subșiruri ale variabilelor sir ce formează un táblnw de 
variabile sir. 

De exemplu, pentru tabloul A $ (10,50) format din zece şiruri de cile 
59 de caractere, se poate specifica subsirul A $ (3. 12 "TO 43), format din ele- 
-mentele 12 la 43, ale variahilei șir A $ (3). 

De remarcat cá, în cazul unui tablou de variubile şir, trebuie selectată 
variabila sir din tabloul la care ne referim şi apui specificat un subsir din această 
variabilă. 

Pentru subsiruri formate dintr-un singur caracler, se poate folosi un singur 
indice, cel al caracterului selectat. 4a 

Astfel: B $ (1)=B $ (4TO4)-—"A" ; B$ (0)="C", pentru variabila B $ 
utilizată mai sus, iar În cazul tabloului A $, elementul (varacterul) al treilea 
*din şirul şapte va Ti specificat. prin A $ (7, 3) san A $ (7, 3103). 
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Variabilele numerice utilizate în BASIC stat reale. Variabilele pot fi 
simple său indexate. Variabilele simple sint reprezentate fie printr-o literă, 
fie o literă şi o cifră. 
Exemple: A, VI, Q7, A9 


variabilele indexate reprezintă elementele unui tablou (vector sai matrice). 
ldentificatornt (namele) tabioului trebuié să fie compus dintr-o singură literă. 
Litera identificator de tablou poate coincide cu numele unei variabile simple 
(fară a produce conflict). 

“Vablnuriie, înainte de utilizare, trebuie declarate ta instrucțiunea DIM 
(sau o instrucțiune MAT). Indicele poate fi o constant&, o variabili sau o ex- 
presie şi trebuie să aihă valoarea. : 

, ' [Xindice e dimensiunea declarată în DIM 
Observație : , 

Dacă, în urma evaluării expresiei indice, nu se obfiue o valoare întreagă, 
se va refine pariea fntreag& a valorii obținute. 

Exemple: E (1,5); V (ABS (R); A (F3, J-K), 

9.2.3. Operaturi, Operatori aritmetici + 

+ ridicare la putere, 

*,] tomulțire, împărţire, 

—; + schdere, adunure, 

Operatorii au fost serişi în ordinea priorități în evaluare (T are prio- 
rilatea” cea mai mare). Ciad se dorește schimbarea priocitá în evaluare, sau 
cind există dubii, este bine să se utilizeze parantezele ` operaţiile diu interiorul 
parirutezelor vor [i execulate înaintea celor din exterior. 

Operalori relaiiunnli 


Operatorii relajionali sint utilizaţi in iustruetiunca IF pentru a determina 
relația diotre valorile a două expresii : i 


operator senalt cutie T” Zoperaiar scmulficație 
= egalitate >= su => nai mare sau egal, 
> mai mare] <= s séi inak mic sou egal, 
< mat mie <> am >< néegalitato. 


9.24. Funefii fu alcătuirea expresiilor pot fi utilizale următoarele funcţii 
mat canatice : 

SIN(x) — sinus de x, unde x este un unghi exprimat. în radiani ; 

COS(x) — cosinus de x, unde x este exprimat în radiani; 

TAN(x)— tangenlá de x, unde x este exprimat în radiani ; 

ATN(x)— arctangentà de x. Rezultatul este exprimat fi radiani : 


(PIE < ATN (x) < PU: 


LOG(x) — logaritm natural din x ; 
EXP(x) | — calculează er; 
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nn A omae be ee ata hat ati ca cd ace cadet ER a RI 


Observaţie : : 
Constantele zx şi e sînt definite intern, în interpretor, si pot fi utilizate 
în expresii prin simbolurile PI si respectiv EE. 
SQR(x) — calculează rădăcina pătrată din x. 
ABS(x) — calculează valoaréa absolută a îmi x. 
INT(x) — calculează cel mai mare întreg «x. 
RND(x) — calculează un număr aleator tu intervalul (0, 1). Valoarea 
argumentului x mu arc. importanță în calcul. ' 
SGN(x) — returnează : 
L dacă x > P 
9, dacă x—0 
—1, dacă x < 0. 


În toate fuucfiile descrise, argumentul x poate fi în general v expresie 
oarecare. l i 

Argumentele luncjiilor LOG şi SQR trebuie să fie numere pozitive, în 
caz Coulrar sistemul va răspunde printr-un mesaj de eroare. 

În situaţia cind, în calcului unei funcţii (expresii), rezultatul depăşeşte 
Acal numerelor reprezentabile în calculator (2.71051E-20, 9:22337E1%). se 
afişează la consolă un mesaj de eroare (UNDERFLOW sau OVEHFLOW 
IN LINE NN). execuția programului continuînd. Ca rezultat al fu mie (ex- 
presici) se ia cea mai mivá, reSpeetiv cea inai mare valonre reprezeutabilă 
(corespunzător depăşirii). De pildă, în cazul funetiei EXP(x), valoarea argumen- 
tului trebui: să lie cuprinsă aproximativ între —45 < x « 44, pentru ca re- 
Zultatul er să poată fi reprezentat Intern, 

Funcţia INT calculează cel mai miare întreg, mai mic an egal cu acgu- 
mentul. 

Astfel : IN'T(7.25) 7 

TN'T(— 7:25). —8 . 
INT(—.1)— —1 

INT poate fi utilizată peatru à rolunji un număr la cel mai -apropiat 
Intreg. 

Astfel, INT(x-F-9.5) va calcula tulregul cel mai apropiat de x. 

Pe lingă functiile descrise mai sint disponibile : furicţii pentru merul cu 
şiruri de caractere, precum şi fnncfii speciale de intrare/iegire. 

Astfel, pentru neral cu şiruri de caractere, se pot utiliza func]iile : 


VAL (sir) — calculează valoarea numerică a șirului, tratat ci o expresie 
aritmetică, De exemplu: VAL(“127.5-R")=—7.5, dacă variabila 
R are valoarea 120. 
LEN(şir) — calculează lungimea șirului specificat. De exemplu : 
1ENGABC123")==6, sau dacă Al m*B79, atunci LEN(AŞ)=3 
STR$ (expresie) — calculează valoarea expresiei, iar rezultatul formeazá un 
şir de caractere, ca şi cum ar fi tipărit cu instrucțiunea PRINT. 


De exemplu STR$ (127.5-B) —7.5*, dacă variabila B are valoarea 
120. — 
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CHRS (expresie) — calculează (determini) caracterul care are codul ASCII 
egal eu valoarea expresiei. De exemplu CHRS(05)="A* 


INKEY$ — eileste un caracter de la tastatură (În cazul in care a fos 
aefionalá o tastă) şi intoarce codul ASGIL al caracternlui. În 
cazul cînd na s-a acționat nici o tastă rezultatul este şirul nul (^). 


Funcţiile VAL. şi T.EN pot fi folosite în orice expresie (ariluwticl). fasü 
pe prima poziţie în cadrul expresiei. Funcţiile STR$, CHR$ si INKEVYS 
pot fi folasile numai în expresii de tip sir. l 

Pentru executarea unei operații de intrare/iesire, pe un pori. speeificat. 
se pot folosi funcţiile: 


GET(x) — citește un octet de la portul numărul x, Q < x e 255. 
Valoarea funcției và îi un număr întreg, Q x GET(x) e 255. 
Funcţia GET poate fi folosită în orice expresie. 


PUT(x) — poate apărea numai în snembrul Sinn al um) instrucțiuni de atri- 
buire. Execuția funcţiei constă fn tranumilerea la portul en anrnătul 
x,a valorii expresiei din membrul drept. ul iuslcuețiunii de utei- 
buire. 

Exemple : 


10 PUT(127) A 4-17 


Expresia din membrul drept este exalnală, com ertită ii Inten, iar cei 
mai puțin semnificativi opt. biţi sint Lrirnisi ta portul 127. 

Instrucţiunea ` 15 PUT (127) e GET (255), va citi un cele! de lu porlul 
255 şi-l va frunsmile la portul 127. 


9.2.9. Expresii. Expresiile utilizate in instrucțiunile BASIC stat de două 
tipuri: expresii nritmetice (le vom numi, pe seurt, expresii) si expresii sir. (sau 
şiruri). 

Expresiile gr po! conline ca operanzi: consteme şir, + miubile şir sau 
subşiruri precum $i functiile ce au ca valoare şiruri de caractere : PIRS, CHB$, 
și INKEY$. Ca operator, în formarea expresiilor sit. poate fi ntilizat operatorul 
de concatenare, notat JL. De exemplu : o (är ::^ABG" = 122A RU", sau CHRS 
(65) J-STR$(2-1 7) -- "CASA" =A ACASA". 

Expresiile aritnietice pol. [i compuse din constante, varinbile simple sau 
indexate, funcții, legate între ele priu operatori aritmetici etè. 

Exemple : 100 . 

VAL ("10.5-- B7) 
(324 t 3) e (Z fei, ALOR (441) 

Ordinea de exeeufie a apernfiilor. 


— În expresiile făra paranteze Sueceșiunea” este următoarea ` 
1. catculul valorilor funcţiilor, 

2. ridicarea la putere.. JC 

3. înmulţiri și împărțiri {cu prioritate egalà), 

4. adunări şi scăderi (cu prioritate egală). 
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— Dacă doud suit mai multe operatii de-uceeaşi priuritnte apar într-o expresie, 
ele se efectucuză în ordine, de la stînga la dreapla, cu ezcepțiu ridicării la pulere, 
unde execuţia este de;la drenpta spre stinga. 


Exemplu : 
3424 3=—34 8-581 


— Dacă tnir-o expresie apar puranleze, se bor executa întăi operațiile cuprinse 
între paruulezele interioare. 


Observatii : 
1. Singurele paranteze admise sînt puri ntezele rotunde. 
2. Operaţiile aritmetice trebuie serii explicit. 

Exemplu ` 


RAR su va serie: D*A*B. 


9.2.6. Ínstruettni şi comenzi, Elementele principale ale limbajului 
BASIC sinl instrucțiunile și enmeuzile limbajului. Siutactic, instrucțiunile se 
deosebesc de vamenzi prin taptu că orice instrucțiune este etichetată, adică 
oniwe instrucținue începe cu un număr întreg (pe care-l vom numi număr de 
linie), cuprins între ® și 32707. 

Numerele de linie iu un dublu rol: 

— drlerminü ordinen de execuție a instrucțiunilor (instrucțiunile pot 
fi introdusé în oriee ordine. însă vor fi executale in ordinea crescătoare a mime- 
telur de linie); 

— sint utilizate în instrucţiunile de. transfer, pentru referirea instruc- 
țiunilor. 

Comenzile şi instrucțiunile vor D prezeatate detaliat în capilalele urmă- 
toare. 


9.2.7. Esereitii 


L Daci dispuneţi de un tube) eu loyarituil, încercați să veriticuţi ucinătoarea regulà i 
n ridica 10 la o putere este echivalent cu inversul lugaritmulul din acel, numâr. Introduceti i 
10 PRINT 19 t pănip 
20. END : 
HUN 


$t ormáriti în tabelu de logariuri, vorat iugăritinulul diu (,3020. De ce cele două rezustate nu 
sint exact egale ? 


Observaţie ` În copkinuaro. Listruetlunea. END de In sfirsltul prograinulul şi-comanda RUN co 
lanseazd în exevat!o: progeauwil, nu vor mal Îl specificate explicit, considorindu-se .subinţeles, 

2. S-a văzut ci numerele sint reprezentate. în formil cu virgulă mabilă, format care 
permite reprezentarea unci game largi de valori nuinerive reale, precizia reprezentării (0—7 cifra 
seintiificative; nedepluzind se vatoure. Exccitati fusă uzinătoarea instrucțiune 1 


fr 10]PRINT 1E5-L1—188, 1ES—IES-r1 " 


Observati cá pentra calculator (ER si 15841 sînt valori ogale, 
3. Pentru obtiueren logarltudlor zecimali (cei găsiţi 1n tabolsle de logaritmi), 1mpàárfifi 
logaritinul natum! prin LOG (19). Astfel, pentru a exleula log d.se futoseşta instrucțiunea s 


10 PRINT LOG (2JLOG (100 
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obtiniugd rezultatul (501029. Incercaţi.să faceţi înmulţiri și împărțiri ci logaritint servindu- 7? 
de ealculsior ca de a labe de Ingeritint, Pentru test, puteţi folosl exerciţiul 1, cara entenleuză 
invemul logarilumlui. 


N 

4. EXP şi LUG sint funcţii inverse uba mtela. Aplicindu-Te aurzeaiv unni mumâr, H sor 

lăsa aer 

I5 semplu : LOG EXP EVEI LOG (21 

Acest jueri este valabil $i peniru Tuneţiila 7 si ATN. Puteţi utiliza nees. exereiliu 
pentru a testa preciziă de alen) n Timeţiitor resperilive de către vulculnini. 


A. Se ştie că x radiani reprezinlii 180^. Pentru n transforma o nutrire exprimată Ju grade, 
în zadi, o impărțun prin 186 şi mmidi cur, astfelo 


16 PRINT TANE(5/180 » P1) 


calculează (on 45g (721). Pentru u frunsfurina Fodina în grade, trebule să Impártim pria n şi 
să Innulyim cu 168, 


&. Gun utilizaţi functille HAD zi INT pentru a abtine un numire aleator intre J gi 6, euis 
nr putea reprezenta aruncarea unui xar ? (Eüspans : INT (RND (1) e 64-1). 


7. Pentru a tesla precizia cu care este momaurat e de cütie caleula? nr, executati instruc- 
funes : 10 PRINT Pi, PIS PIAI Pl-3.14, PENAL. 


8. Funcţia INT rotunjegte Ja mireg prin lipsă. 


Pentru s )o*unji în Intregul cel mni sprapiat sc adună OR" 
Exemple : 


INT (2.94.05) 8. INT (544-0) 38 

INT (—2.94-0.5) — —3 INT (—6.44:.04)——5 
Comparati cele de mn sue cu rezultatele obtinute în cazul că nu adunati 0.5, 
9. De ce numele vinei variabile trebulé să toetapá cu o Weg > 
30. Reamintim citeva regulii de elen! ou puteri 

A10=i 

At {i= IARI 

A10 IB)=frâdărinagae ordin H din A 

Ai (BttUecAh 1 Deh IC 


AER e CIA LI 


unde A şi B sînt numere întregi pozitive. 
Testati aceste reguli ntilistnd calculatorul peotm calcului diferitelur expresii conținînd f4 


De exemplu : 
10 PRINT 3 t (24-09, 3t22310 
D 20 PRINT 44 (—1), 1/4 


11. Valoarea Tul e, baza logaritintior naturali, este 2.71828. En cate memorată intern eu 
pumtle EE. Verifieaţi dacă : 
EXP(X)zER tX 


pentru diverse valori ale inl X. Kum 
12. Executati nrmătoarela Inatruotiunt dÉ. 


16 LET Afe^WENY1I) » 4" 
29 PRINT AP; "=" ; VAL (A$) 


H 


(Kemila! tipiritfeste c) — '' 


a 
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Repetati execuția schimbind Lostruettnnes 10, 
De exemplu : SE 


b LET X=9 ` 
10 LET A$="X £3--2e X" 
iteexecutați pentru expresil din ce In ve mal complicate atribuite variabilei sir Aş, 
13. Uncle vesini ale limbajului BASIC uulizează următoarele functi pentru lucrul 
enn : LIF PS jREGH TS; MIS ai TLS, cu u rmătoarele: anon Dest d 


LEETS (AS, N) — calculează snbsirul bal A$, cumpus din primate N caraetere, 

RIGHTS (AS, N) — calentează subsiral lui A$ compus din uitunele caractere Inceptad cu r 
DG i 

MTDS (AȘ, NI, Nä — enteuloază Selen! bi A$ compus din N2 caractere începinil cu i 
al Nistea carueler din AS. : 

TLS (A$) — caleulcază sübylrul lui A$ formut dhi toate caracterele fui A$ cu exctp- 


tis primului, 


Íncerenti să descriell fanetiile de nai sus eu ajutorul decupáril cu TO, 
14. Executali programul : 


130 ASSCHHBS (TNT U1ND (9)*19-I- AR 
20 PhIN'' Aş 
36 GOTO 19 

Gnstroepiunea COLO 10 indică repelurea executiol de ta Hala 10). 

Programul tipárezte o cifră (Intre 0-29), deoarece 45 este cotul vifrel 9 la care se odunh 


un wur altutar titre Ql 9, dind codul AST al unei cifre (intre 48 şi $7). Puteţi da aitá soluție i 
pentru generieren vanh uuuuät ing intre Q si 0? 


9.3. Comenzile şi modul de utilizare 
ul interpretorului BASIC 


9311. Bansaren în execuţie a iuterpretornlui BASI Interpretorul 
BASIC este depus iu. memnria eu couţinul, permanent (PROM), fncepind. de 
là adresa SPAH (hexsxechinal). Da aceea poate fi lansat în execuție cu ajutorul : 
counmzii GOZDA, a monitorului sistemului, ca orice program utilizator, Pentru : 
simplitate, s-a prevăzut între coinenzile monitorului, o comandă specială pvi- 
tru a lansa in execuție interpretorul BASIC, anume comanda B*. ; 
Cind interpretorul BASIC intră în execuţie, va tipàri pe display mesajul 
READY, iodieind faptul că se așteaptă instrucțiuni sia comenzi de ta utili- 
zator. În continuare, utilizatorul va introduce un program de ln tastatură sau 
va cili un program de pe casetă magnetică. Programul astfel introdus poate 
D executat, listat pe display suu modificat (cu ajutorul unor facilități de edi- 
tare) după dorinta ulilizatorului. După execuție, progeamul poate [i salvat pe 
casetă şi şters din memorie, pentru a se introduce un nou program. A 
Là terminarea unei sesiuni de buerg cu interpretorul BASIC, se vu ieşi 
de sub controlul iuterpretorului acționind comutatorul (RESET) de la consolă, 
Jausindu-se în execuţie. raonitorul sisteinului. 
Există două situaţii speciale de lansare în execuție a iaterpretorului 
BASIC. 


* Comandi B este disponibili mumni fu vastunee VBA, 
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În prima situație, se utilizează subrutine în limbaj maşină, apelate. din- 
tr-un program BASIC. În acest caz, înainte de lansarea in execuție, a interpre- 
torolni, se va introduce În memorie codul pentru subrutinele apelate, cu aju- 
torul comenzilor monitorului. Apoi se lansează interpretorul BASIC de la 
adresa 815H (deci cu comanda (40815). 

În cea de-a daua situaţie lansarea interprelorului are loc de la adresa 
929H, fără inițializări. Lansarea de la această adresă (cu (30820) se foloseşte 
cînd în memoria utilizată ile interpretor pentru păstrarea programelor, se află 
un program care nu trebuie şters (de exemplu cînd va ieşit din BASIC fa 
Monitor şi se doreşte să se intre iarăși sub controlul inlerpretorului, fárá ster- 
gerea programului BASIC introdus în sesiunea: anterioară). SEH 


9.3.2. Editarea programului, Există Facilități de corectare a unei linii 
ia cursul introducerii ei de la consolă (tastatură). sau de editare a programului 
deja pria (Ştergerea ungi linii sau înlocuirea €i cu altă finie). 

stfel : 

— ştergerea ultimului caracter inlrodus xe realizează acfionind DEL 

— ştergerea liniei în curs de introducere se fave  actionind simultan 
CTRL şi Y 

— ştergerea naci lustrucțiuni din program se face prin tipărirea numă= 
rului ei de linie şi RETURN. 

O instrueţinnea se prate Inlocui prin tipărirea noii iusbrucfiuni cu acelagi 
număr de linie eu vechea instrucțiune. 


Observafie : Orice linie inirdusád de lu consolă (iustrucțiune, comandă sau 
tinie de date) va fi Inntá în considerare de sistem la aclionarea luii RETURN. 


9.3.3. Listarea şi nalvarea pe easet a unui program. Un program BASTE 
atial in memorie poate fi listat [a display sau salvat {skosat} pe casetă mag- 
octică. Ateste operații pot [i execulate indiferent dacă programul a fost eXe- 
cufat sau nu. Patru listarea programului se folosește comanda : 


LIST N1,N2 


uude: NI şi N2 sint numere de linie. 

Execuţia comenzii constă To listarea programului existent in memorie 
în ordinea crescătoare a numerelor de linie. Parumelrii N1 și N2 sint opfio- 
nali, În cazul în eare se specificà un singur număr de linie sc vor lista instrue- 
tiunile ce au numărul de linie mai mare sau cgal cu nuinárul specificat în 
comanda LIST. Cind se specifică ambii paramoteii, se vor lista instrucţiunile 
care au uumărul de linie cuprins între N1 şi N2 inclusiv. Execuţia coinenzii 
poate fi aprită de la consolă, acfionind CTR. 

Pentru salvarea pe casetă a unui program se folosește comanda SAVE. 
Dacă programul foloseşte subrutine În limbaj. mașină. la comanda SAVE se 
salvează automat și subrutinele apelate. Davă comanda SAVE este executată 
după ce programul a fost executat, atunci se salvează pe casetă și valorile 
variabilelor utilizate în execuția programului, l 

Desarece identificarea programelor de pe caselă se faco manual de către 
wüilizator, este bine ca înainte de salvarea unui program să sc înregistreze 
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pe caselă un text vorbit (titlu), referitor la programul ce urmeuză, necesar 
identificării. Apoi Se conectează casetofonul pe înregistrare la calculator şi se 
lansează in execuţie comanda SAVE. 


9.3.4. Citirea unui program de pe casetă. Peniru citireu unui program 
de pe casetă se foloseşte comenda LOAD. Inainte den executa comanda 
LOAD, trebuie să se depisteze (sonor) începutul programului (după litiul 
inregistrat la salvarea programului) şi apoi să ze conecteze casctofonul la cal- 
culator, pe redare. Programul este citit de pe casetă în memoria caleulatu- 
rului impreună cu eventualele subruline în limbaj mașină şi cu variabilele, 
exact În starea fn care a fol salvat, vechiul progrum din Get porte fiind şters. 

Pentru o citire cît mai fiabilă este bive ca volumul redării să fie reglat 
corespuuzâtur. 


9.3.5 Execuţia unui program. Pentru a lausa in execuție un program 
BASIC aflat in memorie se pot foles: comenzile : 


RUN nr. linie 
sun 
GOTO nr. linie 


esetulia programului incepind de la linia cu mumhrul specificat în comandă- 
Pentru comanda RUN, numărul de linie poate să lipsească. caz in care exe- 
cuția începe cu prima instrucțiune din program. Deosebirea dintre cele două 
comenzi constă în faptul, că. RUN inițializează (sterge) variabilele înainte dr 
lausarea în execuție, pe cînd GOTO păstrează valorile variabilelor ehtinute 
într-o execuţie anterioară. De exemplu, dacă se citește un program de pe 
casetă impreună cu valorile variabilelor (eventual tablouri), atunci lünsaree 
sa în execuţie se va fuce cu comanda GOTO nl, nl fiind nunmiürul de linie 
a! instrucţiunii aflată după instrucţiunea DIM în program, pentru a, se putea 
folosi valurile variabilelur tablou sălvate pe aset. Dacă nu se doreşte utili- 
zarea valorilor variabilelor, obținute într-o execuţie anterioară, programul! 
poute fi lansat. În execuţie cu comanda RUN. 


Observație ; Pentru a nu se salva valorile variabilelor pe casetă atunci 
elad nu sint necăsare, trebuie să se ştie faptul că tabela de variabile este 
ştearsă în următoarele cazuri : p 

— la introducerea unei noi linii în program; 

— la ştergerea unei linii din program, 

— la execuția comenzii SCRATCH (însă în acest caz ceste şters 8i pro- 
grarmul). 

Execuția unui program este. oprită la : 

— depistarea unei erori în program, 

— execuția unei instrucțiuni STOP sau END 

— întreruperea de la consolă, acţionind caracterul CTRL, 

— ntrernperea de la consolă, actionind RESET, caz în- care se intră aub 
santrolul Monitorului. 

La terminarea execuției, sistemul tipăreşte READY. După cvenluale 
coreciări iaserâri de instructiuui, programul poale D execulat din nou. 
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9.2.6. Ştergerea uiui program din memorie. Înainle de inltoducerea 
unui nou program de la tastatură, vechiul program din memorie trebuie sters, 
altfel liniile lui vor interfera cu liniile noului program. Pentru ștergerea progra- 
muli din memorie (inclusiv a eventualelor subrutine în limbaj maşiuăi se 
foloseşte comanda: SCHATH (sint suficiente primele:irei caractere: SCRI. 


9.87. Exerciţii 


1; Sa văzut .că variabilele utilizate ge up program tn timpul uxecutiel sint giereg din 
memorie la inLrotuverea san ştergerea unul insfructiun a programului și Ja comanda SCH, În 
toote- aceate cazuri, este allerat Insă gi prugmmni o dată cu ştergerea variabilelor (desigur, există 
pasthiliinten de a şterge o linie gi a a reintroduce cu acelăşi canținut), 

O posibilitate de a șterge variabilele fără u aiern progrunul, cute prin execulin eemeuztl 
RIN n1, unde 11 este uumăral de linie al instrucţiunii END sau STOP din program. . 

Acesl lucru este valabil deosrece, Ia începutul executiét programului, prin cumanda KIIN 
ee sterg variabilele utilizate de program (intr-a execuţie anterioară), Jar apol se va executa instruc- 
iunea ERD sau STOP, fitergerea variabilelor este attă, in cazul salvării pe casetă a pitgrn- 
fnelor ce canfin vurinhie (eventu tablouri), me cărar valori nu sint necesare In refiicárearen 
de pe casetă. Testat avast Treni, pentru programe care rop tin tablouci suficient de mari, ci weji 
ohaarva difercuta de timp In salvare și încârcure pe cusetă, 


2. Execntoil urmàlorul prograui i 


10 LET X=7 
20 PRINTX 
36 END 


Tolositid coniimra. RUN. Executati acum prgramnl tieepind de Ja tinta 20 cu comenzile GOTOAU 
și RUN2U. Ohserenti că rezultatul estè diferit (în primul sax este 7 în al dulleg 0). Acest hum 
so dntorează (plutui că, romanda HUN şterge variabilele rămase dintr-o execuţie anterioară. 
fluvru care s-a mai apus), iar interpreturul BASIC consider variabilele nedefinite ca avind vntoa- 
rea. zero, 


8, Pentru a testa faptul că comanda SAVE salvează impreună cu programul gi variabilele 
utilizate, se poate introduce on prograto, de exemplu cel da la exeniliul 2, şi după execulte se 
va salvu pé- casetă, Pentru sulvare ue vor execita urmatoarele acțiuni t 

— poziţinnatea benzil fn zona în care ac dareşte să se Inregistreze programul, 

-— utilizind microfonul, se va da un nume programului ; acest Iuero nu este absolut neco- 
sar, dar este util pentru regăsirea ullericará n programului, i 

— ue cuneciează casetofonul (prin enblul corapunzător) cu calculatorul, 

— se inLrnduce comanda SAVE (für a acționa tasta RETURN), 

— se cotnută casetofonul pe inregistrare, 

— st acțiunoară RETURN, 

— e  unnüregle apariţia — pe ecranul televizornluf a mesajulni definit de operatie 
(READY). La apariția mesajului, opri(i casetofonni, Pe durata înregistrării se va auzi un zgomot 
specifie, tu dijuzoral asociat calculatorului, Jar imaginea pe televizor ve [i formată din dungi 
variabile (in primele 10 secunde din înregistrate, se depuna un preambul necesar sincronizării, 
lar apoi programul BASIC şi variabilele), 

În continuare, se şterge programul din memorie ep ajuterul comenzii SCR (se; ponte testa, 
că meinoria nu conţine nic) un program, introducind comanda LIST). 

S s coutiuuare, sé incarcă: programui de pe eascid in memorie éxecuttnd următoarele 
actiuni i MES : 

— se rebnbintazá handa penim a o mure la inceputol fişierului (zane!) cu programul. 
Peta depistarea începutului progrumulul se va fece uz de numele Inregistrat înaintea progra- 
gint, oa m , . 

— se csnretează casetofonul la calculator, pe redare, 

— ze regivăză volumul redării gefiddert de mare (3/4), tar tenatitatéa la valoare tnaità 
(dacă cawetofonul nre reglaj de tonalitate), ! ptc 

— se introdnce comanda LOAD (fără a nctiena tasta RETURK), RI [i ol! 


58 Limbajul BASIC pentru microcalcalatorul personal AMIC. Manual practic 


— se pornegta câsetolunul, 

— se urmărește dacă becaleţul de la consolă s-a aprins și apol se acţionează RETURN, 

— se urmărește apariția pe. ecranul televizorului s mesajului de stirşit de incărcăre, 
Astiel, în cazul în caro operația a decurs fără crori, vor fi afișate donà ninneré în hexasecimal 
care.reprezintă : a«d7esa da incepnt'u zonei de memorie salvat pe casetă şi respectiv — lungimea ` 
ei (unn de octeți). Apot esta tipárit mesajul READY, de cătro interpretor. În cazul in care , 
s-au depistat erori la incârcare, monitorul va tipări ? şi va prelua controlul, În acest caz, Incár- 
carea progminulul de pe casetă trebuie celustă, însă este indicat a se intra în BASIC din monitor 
cu comanda (39829 (fără inițintizări), pentru a setista (cu LIST) programul Incárcat și nse constata 
amploarea erorii de încărcare, Uneori eroarea ponte fl corectatà-editind o anumită (mie, fAră a 
mai încărca încă odată programul de po casetă. 

După încărcarea programmini, se execută comanda GOTO20, şi se observes rezultatui i 
cale ?, deci finpreuná eu programul a Post salvat și variabila X. 


4. Introduceti un program. BASIC si upoi opriM alimentarea de la rețea a caleulgtorulnt, i 
Realiinentind calculatorul şi Jansínd Interpretoral BASIC veţi constata că programul s-a pier- 
dit. Deci, In cazul prograineloc sari, este indicat salvarea lor pé casetă, chisr tn faza de punere 
la punct, pentru a nu risca reintroducerea lut ia intregime. 


9.4. Instrucţiunile limbajului BASIC 


9.1.1. Exeroplu de program, Înainte do u lurepe prezentarea lustrucțiuuilor limbajului 
BASIC, se va da un exeuplu de program seris tn BASIS, pentru cxolvarea sistemalel de doua 
ecuații lineare cu două necunoscute. 

aX--byec i 
dx+ey=t 

Siem) ure soile unică dacă oe-bdx 0, caz în carei 


i ce—bf i é Dică 
ur- S irr 


Dacă ae —bd--6, atuncl, fie pg există nict o Sntutte (siatem imposibil), fle există o infinie 
tate de sointti (Staten tiedeterminat). Trad, nu există sotuție unică. Programul este următorul ; 


19 REM "PROGRAM GE REZOLVA UN SISTEM” | 
15 REM "DE DOUA. ECUATH LINEARE” 

28 PRINT “INTRODUCETI COEFICIENTII A, H, C, D” 
30 INPUT A, B, C, D 

49 LET GaoA*E-B*D i 
50 IF Go THEN 120 

6P PRINT “INTRODUCETI TERMENII LIBERI C, Er: 

10. INPUT G, P i 

80 LET X=(C*E—B*r)/G i 
99 LET Y—(A'r—C*DyrG 
105 PRINT X, Y 
118 STOP 

125 PRINT “SISTEMUL NU ARE SOLUTIE UNICA" 
198 END 


Privind acest program se observă în primul rind că, în scrierea sa, sînt 
lolosite numai litere muti. În al doilea rind, se constată că fiecare linie a pro- 
pramului începe.cu un număr; el este numărul de linie discutat. în capitolul 
precedent. În al treilea rînd, se observă că fiecare instrucțiune începe, după 


| 
| 
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numărul de linie, cu ua cuvînt care determină tipul instrucţiunii. Astiet, fa 
exemplul dat sînt folosite şapte instrucţiuni (REM, PRINT, INPUT, LET, 
IF, STOP şi €ND). 

O altă observație, care nu este evidentá din program. constă în aceea 
că, în BASIC spațiile nu au nici o semnificație, cu excepţia celor din textele 
cuprinse Între semnele apostrof (ca în liniile 10,20.00). 

În continuare vor D prezentate, pe rind, instrucţiunile limbajului BASIG 


9.4.2. Comentarea unui program. Primele două instructiuai, din exem- 
plul de mai sus, nu an nici un rol în rezolvarea sistemului de ecuaţii. Ele sînt 
scrise pentru a introduce romeularii Intr-un program BASIC. 

Foriatul instrucţiunii este : 

ur. linie REM comentuciu 

Instrucţiuuea REM poate apărea oriunde se doreşte introducerea unni 
comentariu. în cadrul unui program. Deoarece sistemul elimină spațiile din orice 
şir de caractere neinclus. între semnele apostrof () este bine ca un comentariu să 
se includă inire acesti semnce. 

Exempli : 


180 REM "COMENTARIILE OCUPA MEMORIE UTILA” 


9.4.3. Terminarea unui program. Pentru a opri execuția umni program, 
pot fi utilizate instrucțiunile END sau STOP. 
Formatul instrucțiuuii STOP. este : 


nr. linie STOP 
La întilnirea instrucţiunii SCOP in program, sistemul va serie mesajul » 
STOP — AT . NN] 


unde NN este numára de linie al instrucţiunii STOP care a produs oprirea 
execuţiei. Într-un program pot fi utilizate rani mulle instrucțiuni STOP, în 
funcţie de necssități. În exemplul din paragraful 9.4.1. instrucțiunea STOP ara 
numărul de linie 110. 

Formatul insLruc[innit END este, 


nr. linie END 


Spre densebire de instrucținusa STOP, într-un program trebuie să existe 
o singură iusteucțiune- ENI) şi să fie ultima instrucțiune din orogram {să aibă 
numărul de linia cel mai marc). 


9.4.4. Instruegiunea de atribuire (LET). Formatul iustructiugii LET este 
ur mătorul : 

nr. linie variabilă = expresie 
sau 

nr. linie LET variabilă = expresie 
unde : 

— variabila poate fi o variabilă numerică sau văriabilă sie, simplă sau 
indexată, sau funcţia PUT ; ` : 

— expresia din membrul drept poate fi aritmetică sau expresie şir. 
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„Execuţia instrucţiunii constă fn evaluarea expresiei din membrul drept 
şi atribuirea valorii obținute, variabilei din membrul sting. 4 


à 


LTE 
5 R=H41 20 C$ — INKEY$ 
10 A$—"APODIT9" 20 LET A=4.17+CQ 


Observaţie : 
O variabilă utilizată într-o expresie. [oră a fi fost definită în prealabil, pri- 


meste uulomat woaren zero. Astfel, în instrucțiunea 39 de mai sus, dagli vari- 
abilu C wm a fost definită, valoarea ni A după execuţia instrucţiunii 30 va figd.17. 


W X=X+Y t35 
60 LET Wiz QW—X)H,)*8QR (Z0)—A)/B 
BU AS 0 10 207 CHE (65941232 
Dacă expresia gir atribuită unei variabile gir, este mai lungă decit dimen- 
siunva variabilei (stabilită prin DIM sau printr-o atribuire anterioară). atunci 
se atribuie variabilei şir doar prima parte din expresia gir (egală cu lungimea 
variabilei), restul expresiei sir ignorindn-ze; Dacă luugimeu șirului din membrul 
drept este mai mică deci! lungimea variabilei șir, restul de caractere se com- 
pleteazà cu spafii. 
Exomple e 
10 A$—''12045978"* 
30 AS (3105) , ABCDEFG'] 
Jn acest caz, A $ vu deveni "LABCDG78", deci, au fast: păstrate coar 


primele patru caractere din șirul "ABCDEFG”. Dacă în lacul instrucţiunii 29 
de maj sus, so folosea instrucțiunea ; 


29 AS OTON" AB” 
valoarea variabilei A $ ur fi devenit. "1AB7678" 


30 BSmaSTR$ (A4-B—17)4-"MEDIA" 
402 (1, INT (K t 100) -COS (EXP (K-- 1) 


94.5. Britten variabilelor indexate (DIM) 


Formatul inetruațiunii este : 
nr. linie DIM tablen 1 (dimens), tablou 2 (dimens, dimens) ..« 
unde : 

— tablou 1, tablon 2, sînt identificatori (omme) de tablou (vectori, 
matriei sau variabile şir) 

— dimens reprezintă expresii ale căror valori definesc dimensiunile tablo- 
mrilor; este necesară îndeplinirea condiției: 


1< dimens 9294 


Tablonrile numerice pot avea gan san două dimensiani (vectori sau 
ma trici) 
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Exemplu : 
T10;D1M. A (50), B. (M, N) 
=» Instruefiunea 110 declară două tablouri A. şi B, A fiind uu vector cu 
50 de elemente, iar B o matrice cu MXN elemente (M, N cunoscute). 
Execuţia instrucţiunii consta iu alocarea, memoriei pentru tablourile 
declurate $i iniţializareu tutnror elementelor ale fiecărui tablou numeric cu 
zero. 
Tablourile de variabile şir trebuie declarute in instrucţiunea DIM, iodi- 
ciodu-se numărul de variabile şi lungimea variabilelor. 
Exemplu * 
Op DIM AS (15, 20, BS (50)! 
' Instrucţiunea 10 declară. un tablou A $ format din 15 variabile şir a cita 
28 de caractere fiecare şi o variabilă gir B $ cu luugimeu de 50 de caractere. 
De remarcat füptul ră, variabilele: yir (ecemplu D $) nu trebuie. declarate brir-a 
inălpuefiune DIM, ete pulina fi utilizate direct în instrucțiuni de atribuire sau de 
inlrurețieşire. Tablourile șir trebuie declarate fntx-o instrucţiune DIM iavinte 
de utilizare. Folosirea loc se fare prin specificarea ansi auumile vatisbite sir 
componente, şi nu a întregului tablou. De exemplu, instrucțiunea : 


za. 20,A 91234 
este incorectă pentru că, A $ a fost declarat tablou în instructiunca 16. 
Corect ar fi: 
(20 AS Gen a" 
inskruefiunea în urma căreia, variabila a doua din tabloul A $ primeste valoarea 
"1284". "Fat corecta este şi instrucțitiniea : 
20 AŞ (2,]10 TO 19)="1294 
În cazul tablouriloră(variabilelor) sir. execuţia instrucţiunii DIM eanstá 
în alucarea de meinarie, cite un octet pentru fiecare element (caracter), ini- 
fializat eu codul spaţiului (ADH). 
- Tablourile mumerice şi cole şir pot fi declarate intercalat, în aceeaşi 
` instrucţiune DIM. 
Exemplu : 
16 DIM A (10, 10, BS (100), 609) 
9.4.0, Exzercljii 


*, Introduce]! umnătoarea secvență de Instructiuni s 


10 LET AS— "tx e tY” 30 LET AS (4) - CHB$ (162) 
20IL.ET[AS (ie CH DÄ (162) 49 PRINT AS 


(102 este codul ghillmelelor) 
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De remarcat câ secvenţa de mal sus nu este echivalentă cu: 
19 LET A$e" X"! "prr gn 


deoarece, în acest caz, mepibrul drept al instrucţiunii de atribuire. este trotal ca o exprosie de 
tip şir, evaluată In. "XS". O aA nuidalitate casrectà de o intřiduce gliülinele într-un gir 


este introducerea sucesivă, Actfel instrucțiunea ` 
10 LET A$=" K" "Are 

este echivalentă cu secvenţa de mol sus, 
] 


2. Pie secvența de instrucțiuni H 


19 LET A$—''12345078'* 40 PRINT A3 
20 PRINT A$ 59 LET A$—'1234" 
30 LET A$—"ABC" 90 PRINT AS 


După execuţia se va abline eroarea 28 în Inla 59. Acest luctu este consecința faptulul 
că in linia 20 arc lot a rediniensionsce 2 siralul AS, la hiaiginena de 3 caractere (de la 8 cite avea 
Jnifiz]). Pentru a evita-această redimensionare; liniu 30:se poate sorie 3p LET AS (TO) "ABC", 
pirul AS viminind de lungims 8, prin. eumpletarea girului “ABG” cu 5 spotit. Deci, tróbule rețiunt 
faptul că în gestiunea sirurilor un se fulosesc dut indicateri de lunghue.: unui păstrind lungimea 
maximă, lar celălalt lungimea efectivă a șirului (sau lungen maxiraă să fte pentru taale şirurile 
e constantă, exemplu 256 caractere), 


9. Introduceţi programul ; 


b DIM Bf (3, 4) 450 PRINTi B$ (2) d 
19 LET B$ (2)—'12345078" 50 LET B$ (2)—'/12345 ' 
20 PRINT PO ` 89 PRINT ES (2), 
30 LET Bg =” MPQ" 70 END 
Executiu! programul nu se va obține creare, ca în cazul exercățiulul precedent. Deci, 
îm cazul tablourilor de gn, wt are, Jon reduaensioraren viol şir compânent Ja o vgivure mai 
mică, ci se păstrează dimensiunea (8) declarntà in DIM, prin completama automată cu spaţii. 
Pentru a an se completa cu spatii (păstrindu=se totus) dimensiunea de 8 caractere) ze poale 
utila specificarea cu TO. Astfol Instructiuncs 39 devine : 80 LET B$ (241 TO=" MPU", i 


În acest coz, şirul tipărit de instruc(iunea 40 va fi: "MPQaS07B"", 


4. În cazul utiiizârii unor tablowut mari se poate ohtine Ja execuție mesajul de emare | 
MEMORY FULL, Indicind faptul că nu mat există memorie suficientă pentra alocarea tablou- 
Wi, Prehule sii se albă în vedere faptut că, pentru flocare element al unet variabile tabiin numerice, 
se slucă cîte 4 octeți, Astfel, instrucțiunea 10 DIM A (11,1, H (16,16) va uluta dauă tablouri | 
nunietice, primu) ovupInd aproximativ $,5.1&0 şi al doilea 1 Ko. Ce acţiuni se pol indica In apari- | 
ţia acestui messj de eroare ? 


9.4.7. Instrucţiuni de intrare/ieșire. Iustrucfiunile de intrare/iegire per- 
mit să se introducă date (valori ale variabilelor) pentru program $i să tipáreaseá 
rezultate siu mesaje către. utilizator. fu execuția acestor instrueținai sint 
folosite în mod ubişnuit tastatura şi display-ul, însă. pot fi ulilizuli oricare 
din perifericele sistemulii, dacă se au în vedere facilitățile mai deosebite de i 
intrarefieşire materializate prin funcţiile GET si PUT sau subrutine in limbaj | 
maşină, apelate din programul! BASIC. cu instrucțiunea CALL. 


instrucțiunea INPUT, 
Fortnat,;: 
nr. linie INPUT listă de variabile 


| i 
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Lista de variabile poale confine variabile simple si variabile indexate 
sau variabile şir, separate prin virgule. — : 

Instrucţiunea INPUT este folosită pentru atribuirea de valori variabilelor 
din listă, valorile fiind introduse de la tastatură (consolă) in timpul execuţiei 
programului. 

Atunei cind se execută instrucțiunea INPUT, sistemul va tipări la con- 
solă(:) iudicînd că aşteaptă date de la consolă. Se vor introduce constantele 
dorite separate prin virgule, linia introdusă va. fi luată: În considerare. de sis- 
tem la actionarea tastei RETURN. Dacă s-au introdus mai puţine date decit 
variabile în instrucțiunea INPUT, sistemul va tipări din nou (:) şi introducerea 
datelor va continua piuă ce toate variabilele-au primit valori. 

Dacă se introduc mai multe constante decit sint necesare, constantele 
suplimentare se ignoră. În cazul în care. se dorește oprirea execuţiei progra- 
mului. în timp ce sistemul aşteaptă date de la consolă, sc ucțiunează tasta 
CTRL 5i G simultan, iar sistemul va tipări READY. 

Exemplu : 

50 INPUT UA. 1, V (2). 


La execuţia instrucţiunii Lp sistemul va tipliri €) lu consolă $i va uştepta 
introducerea a patru constante. Dacă se Int dg doar Trei numere, sistemul 
va tipări iarăşi (:) indietad că aşteaptă dale. Astfel, la consolă. va «părea: 

; 4 17.5, 0510 

: 16:3 

Dacă este comisă o eroare in timpul introdueerii de date, sistemul va 
tipări un mesaj de eroare, iar ultima linic de date va (rebui reintrodusă; Astfel, 
dacă in exemplul de mai sus s-ar fi introdus: 

: 4, 17M5, 9E10, 16:3 
sistemul ar fi răspuns: 

INPUT ERROR, TRY AGAIN 

: (aşteaptă noi date) 

Introducerea datelor se repetă cort astfel: 

1417.5, 919, 19.3 

În cazul lofosirii variabilelor gir, Leute remarcat că, din lima cu sen- 
Slanle şir eorespunzülosre, inlrodusá de la cousolü, sînt eliminate spaţiile 
xeineluse inire ghilimele. 

Exemple : 

10 INPUT AŞ. H, C$ Gro, 
(n "SINT GATA", 73, ABCE} 
Variabila A S a primit valoarea "SINT GATA", variabila B valoarea 73 


iar + ariabila C$ valoarea ABCD, pentru elementele 2 la.5. Textul SINT GATA 
a fost introdus între ghilimele, pentru a si păstra, spaţiul dintre cuvinte, 


instruejiunile READ și BATA. Insirucjiuuca HEAD are același efect cu 
INPUT, cu deosebirea că dalele nu sint. introduse de la consolă, ci siut citite 
dintr-un bloc de date, definit cu instiucțiunea DATA. 
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Formatul instrucţiunilor : 
nr. linie READ listă de variabile | : 
„nr linie DATA listă de constante. ; | 
Pentru a patea tiue evidenta constantelor citite in iustrieţiunile DATA, 
interpretorul foloseşte un indicator la constanta ce urmează a fi citită dim 
blocul de constante, care apar fu-instrucpiunile DATA, din program. Tn cazul 


In care nu se pot inițializa toale variabilele din instrucfiunea. READ, din | 
cauza epuizării constantelor din instrucțiunile DATA, sistemul va da un mesaj | 
de croare. 
"O instructinne DATA nu este asociată unei instrucțiuni READ, «i toate 
instrucţiunile DATA sint tratate ca şi cum ar forma un bloc de date. | 
"ustrucțiunea. DATA poate apărea oriunde, în cadrul programului. 
Raciapin : 
150 READ X, Y, Z 
200 READ-A | 
259 FOH 1=1 TO 10 
255 READ B) 
260 NEXT I 
400 DATA 43, 7.5, 25, —1, 1, Ai. .001, —.1 | 
450 DATA a. 1, 7, 9, 1127, 35 i 
(2. Primele trei constante sint citite pentru X, Y și Z. 
Valoarea —1 va fi atribuită lui A. UtmAloarcle zece valori de la 1 da 8.5 
vor [i atribuite elemenielor vectorului B. 
Instruejiunea RESTORE DE. | 
Format ; : 
nr. linie RESTORE Enc 


Este folosită pentru a iuitializa indicatorul din blocul DATA, pe primă 
instrucțiune DATA. din program. Astfel, se permite reulilizurva datelor, 
Rurala : 

20 POR KU TO 10 

38 READ B(K) 

d0 NEXT K 

58 RESTORE 

80 READ N, Y. Z 

70 RESTORE 

200 READ 

509 DATA 1,2,3,4, 5, 0, 7, 8, 9, 10 


Elementele vectorului B vor primi valorile 1,2,.... 10; variabilele 


X, Y, Z vor primi valorile 1, 2, 3, iar instrucţiunea 200READ va citi ineepiud 
cu T. 


În instrucțiunea READ pot H folosite şi variabile şir. 
Exemplu : 
10 BEAD AS, B, C$ 


1199 DATA "ABC 128^, 17/5, AB123 
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Variabila A$ primeşte valoarea “ABC 123". iar C$ valoarea AB 12$. 
Instrucţiunea PRINT 
Formatul instrucţiunii este : 


nr. liwe PRINT listă 
sau 
ar. linie PRINT 


Data punte confine: consíaute, variabile simple sau indexate, expresii saa 
şiruri. 


Instrucţiunea PRINT este folosită pentru tipărirea valorilor curente ale 
expresiilor cure apar în listă. În cazul cînd lista lipsește se va trece la începutul 
` diniei urmăluare pe display. 
Numerele reale sînt tipărite în următorul format : 
— dacă numărul este negativ se tipăreşte semaul — 
— dacă valoarea absolută à oumácului N este cupriasă înlre: 


0.1 < N x; 9990999, 


atunci numărul este tipărit fie ca aumăr intreg (dacă vuloarea sa este 
iutreagü), De ca număr zecimal, folosindu-se punctul ca separătur al 
părții întregi de partea zecimală. 
— dacă valoarea numărului nu se încadrează în intervalul de mai sus, 
atunci numărul este tipărit In notație științifică (exponențială) astfel s 
[-] XXXXXX E [~] YY 
unde: [>| — indică partea eptHionalá a reprezentării, dacă numărul este 
negativ se tipărește — ; 
X — reprezintă o cifră a numărului ; 
E — indică reprezentarea exponențială ; 
Y — este cifră a exponentului. 
ValoareaTnumárului va fi: [7] X-XXXXX x 19t-1YYI 
În funcţie de separatorul folosit, intrè elementele din listă, se va face 
spajierea Între valorile Linárite. 
[Ca separatori pot fi folosiţi n,” sau ,;" 
at La ]l.iniafpe caro se lipüreste aste împărțită iq zone. kungituca nuci zona 
este de 15 caractere. Penlru un display cu lungimea liniei de 30 caractere vor 
exista două zong îacepind eu pozițiile O şi 13, 
Exemple : 
19 LET X-5 
59 PRINT X, (X*2) t 6, X*3 
90 PRINT X +4, X—25, X—100 
39 END 
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La display và apărea : 


p... 15...... 39 «— poziţii ' 
5 1.00000E 06 
19 625 

—20 —95 


Gind valoarea de tipărit depăşeşte lungimea unei Zone, elementul urmBtor 
este lipărit la îuceputul primei zone libere. 


10 LET X225 
20 END "SOR (Nisar, SQR (X) 
36 EN! 
Se va tipări: . 
ex 15... 30 <- pozitii 
SQR(X}-= 5 


Folosirea ca separator a lui ,;" conduce In lipărirea fără salt Ja urmă- 
toaren zonă. 

Dacă lista din instrucţiunea PRINT nu se termină cu n,“ Sau, `" atunsi, 
la siîrşitul execuției instrucţiunii (după tipărirea tuturor elementelor dia listă), 
se va trece lu începutul liniei următoare. Termiuarea listei din instrucțiunea 
PRINT, cu unul din separatorii „,“ sau „i“ este utilă în cazul tipăririi mai 
multor valori fnlr-un ciclu, pentru a se face economie de spațiu de afişare. 


Exetaplu : Programul 


J6 FOR 1-1 TO 19 
20 PRINT I 

30 NEXT I 

40 END 


Va tipări livcure valoare la început de linie 


«Pb 


| 
| 
Dacă se foloseşte separatorul , P . | 
10 FOR I=1 TO 19 
20 PRINT I, 
89 NEXT I | 
19 END 
atunci se vor tipări cffe două valori pe linie: Pentru a se potea tipări oriundepe | 
suprafața display-ului formată din 32 de linii a 30 de caractere (coloane) fie- | 
care, 5e puale folosi in instrucțiunea PRINT funcţia : AT(inic. coloană). 


Exemplu ; 
10 LET A$—" Ax" 
20 PRINT AT (16,15); AS; 100 


va tipări la mijlocul ecranului textu! A= 109. 
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Funcţia AT este utilă în afişurea de valori sau texte, pe vu desen realizat 
cu instrucțiunile grafice, sau peniru tipărivea într-o anumită zonă n ecranului. 
indiferent de poziția curentă. în csre urma să se tipărească. Pozitia (1. Deste 
fn colțul din stînga susa) ecranului, iar (32, 30) în dreapta, jos. 


9.4.8. Execelţii 


1. Însteueţiuneă INPUT cite desenri preceifat de instrietiiien PRINT, de. even hun 
10 PRINT "Nr, STI DATELE” 
20 PRINT = 
30 INPUT X 


"Valoarea Inl X. va fl afișată pe arclaşi rind cu mesajul K=, deoarece instrurliun en 
29 PRINT sc termina cu; 
Similar, pentru introducerea: "de teste: 
10 PRINT "DOHITI O NOUA  EXEGCUTIK'" ; 
20 INPUT R$ 


füspunaul Introdns fiind DA sau NU, tanima tărula fn progroii SC va exetili o riteizie. 
'2, Executuţi ormátomil. program : 


10 INPUT AS 
20 PRINT AS; "ett; VAL (AS) 
30 GOTO 


Introduceţi mstr ieni PRINT süpilinentáre astfel ducit caleulatorul să preclzexe ve 
intenţionează să fară gi så cenpă poti fine datele de Intrare, De remarcat ră, expresia introdusă 
spre evaluare (în AŞ poale conține orice fel alu preluerâti numerică inclusiv vnrinblle, n căror 
valoare trebule iotrudusà 1i prealabil. De asemenea, siru) AS 1rehulo să fie aJagaţ. într-o Instrue- 
Hune DIM, Iur în irisbucțiuea Ié sf se utilizeze nutaţia (LU) pentru n Suphi den reoloca ren 

5 DIM AS (19) 
10 INPUT A3 au) 


$. Cum se pente apri execatia. pregranuiui din. exerciţiul precedent ? CTILC în 
INPUT saa CTRL între instruettuol, san * + * RESET); Dacă executia së oprit Mitre Instruc- 
tuni, cuni se poate relug fără alterarea voriabitelns ? 


4. Scrleti un proram rare calcufeaxá sunm curentă n numerelor introduse. 

indscaţie : Se utilleenza- voriabilele T pentu pastm rea: tutrhdul curent si V pentrn minik- 
ru) introdus T se initielireszá. cu valnarea 8. Se cltegie un număr în V, se iiduud ta şi se tipi- 
veste T. Se repetă vu Introducerég nitui nomâr, 


5, Pantru-a sininta mișearea uoni simbol grafice într-a auurnită direcţie ue va afişa şi xe 
“va şterge simbolul respectiv, progresind cu cite un pas în Girerţiu respectiva, Se va utiliza 1n acest 
scop instrucţiunea PRINT eu funcţia AT. 
19 LET X=t 


20 PRINT AT (5, N): ^C": 
36 PRINT AT(5, X); ": 


40 LET X=x4 
30 GOTO 20 
Programul de mal sus are dezavantajul câ, la terminarea linich cind X devine 230, se can- 
Uno incrementarea sa, Pentru a evita aceast iven se Introduce instrueļiunea ` 
45 P X»30 THEN 10 


* Caracterul rafie este notat cu „Ce 
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Cere, reincepe execuţia de la linia 18 dacë X a devenit mai mate decit 30. Liu alt dezavantaj 
aste timpul scurt în care simbolul apare pe ecran, duturită intervalului do timp scurt între afi- 
gare şi:ştorgere. Pentru a miri această duratáse întrusduce lutre liniile 203130 un ciclu FOR fictiv 1 


22.POR Y«1 TO 19 
25 NEXT F 


Acest lucre Insă, are dezavantajul că micşorează viteza globuiă de executio a programului. 
Se. recomandă următoarea soluţie: 


n$ LET X21 40 PRINT: AT Ki r) 3” CUSAT( X) "GU s 
50 LET P=X 586 IF X=29 THEN 10 
70 LET X=X+1 69 Goro 20 


, Programu fidoseste două varlabile, X păstrează puzitia curentă a carocteruluj, far P porle 
ţia snteriourà, cure. vn D ştearsă. Simbulul apâriod mereu pe. ecran, creşte Impresia de. viteză, 
De remarcat că, în aceeaşi Instructions PRINT poate apare de două or) specificatia AT pentru 
pozitionare, O altă soluție const m scrierea caracterului precedat de spațiu, PRINT AT (5, X) ; 
"QC", astfel: Í 


10 X=1 . 40 IF X »29 THEN 19 
20 PRINT AT OG, X) ; "€"; 30 CO TO 20 
10 X=N +1 
18 imbanătătire adusă programului se referă ln utilizarea Lustrucțlunii POR pontru ciclare 
10 FOR N=t TO 29 39 NEXT X 


20 PRINT AU (5, X0; "Gr: 40 GOTO 10 


“Pentru men ron oul pătrățel (174 dinte-un curaeter), pot Fi utilizate silar Instrac[fu- 
nile PLOT şi UNELUT. În programele de mai sus, în pouzitia 39 a iniei, va rămina caracterul 
fárà.a fi ters, Pentru a-I șterge, se lutruduce {w ulLirmilexeiiplu) : 35 PRINT AT (5,809) "5 

Cum puteți dëser mişcarea siuviltaná à mal multor caractere (figuri) ? 


8. Funcţia STHS ete Karte utili, dar deseori neglijată, Aga cum s-a aritat, en este utl- 
Jizatá peatru conversis unel valori numerice lutr-ua sir de enractere, identic cu cel obtinut prin 
tipărirea sa en PRINT. Ineercaji următorul program : 
10 PRINT 2, STRS (2) 
20 PRINT 3/3, STRS (1/3) 
20 PRINT Q9E15, STRE (UE15) 


he nhăarvă că, valurile ultşete sint identice: Utilixurei prinelpală a funcției STR$ este 1n 
Iormatarea rezultntetor afișate. Se vor indicu citeva exemple. 


a) Asezarea pnretulut zecimal in pozitia dorită, Mxeeutat! programul i 


10 LET A= AND (00910000 30 LET A—A*10 
20 PRINT A i0 GO TO 20 
Se obline urmâtunrea! secvenţă j 
9.152587 1526.87 
1.52357 15258,7 
15.2587 152587 
152.587, 
Valorile stnt mal nyar de cumparat dach le putem alinia pe verticalà Ja nivelul puuctuJut 
zecimal, astfel: . 
0152547 
1.52587 
15.7547 
152.587 
1333.87 
13258.7 
192587 
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Pentru uceasta se wodilicá programu? de mal sus folosind funclia STS. 


5 iz 30 A—A*10 
16 As BND 10)*10950 36 114.1 
26 N-—LEN (STR$ (INT (43) 49 GO To 29 


23 PRINT AT (T, 15—N) £A 


Variabila I este ulilizată pentru a indici linia hi care se tibăreşie en funcţin AT în instrue- 
Hunter 22 PRINT. 


Expresia LEN (51 KS {INT (AN) calculeăsă lungimea PĒRK întregi a vumărulii, Asel, 
dacă A — 15/3587, atuici SCRS (INT (A =", gir en lungimea 2, deci tipărirea se vii tncepo 
din coleana 18-2—13, wat, atè nimercio vor avea punctul în colonna 15 (exceptind cele în 
notație științifică), Execuţia programului va fi oprită de In Lastutură, uc|innind CTRL. 

bh Tipărirea eu va număr dorit de cifze ja pastea zecimală. Se ver tipări, de vvemyim, 
bunierele ru (rel cifre după punctul zecimal. 


5 Lett 38 IF M <> N THEN 45 

10 DIM um 40 HS (NI) 

15 As DS) (03*100 35 PRINT AT(L 17H; BS(TON 4-4) 
20 M—LEN (STERS (A) 38 AcA*10 

23 Ne-LEN (STRS (INT (Ap) 85 I-I41 

30 3$ (TO)2 STHS. (A)--" 0000" 60 GO TO 20 


Varlahila ] este utilizată în acelaşi scap ca În exemplul precedent (dief numărul linlei), 
M confine lungimea letală a pumürolin, iur N nuniarul de ctfre al pârţii Jutreui (ea și în exempti 
precedent), În varinhila PS xe. cusamblenx" munuărul urmat de eventuate xeruuri. Dacă minira 
este întreg (test renliznt In instrucțiunea 25 IE), se adauga e) punctul zecimal (în focul unita din 
ele patru zernuri), ' 

€) Econonisireu. spaţiului de memorie si definirea de funcţii. Descorl este VIR manipu- 
lu rea. numerelor tratate ca șiruri dé caractere, În loc dea le prelucra nuineric, Dt în final, evalua- 
rem Inr cu functia VAL. Astiel, se pot stoca numerele sul formă de şiruri, cu niutarul funcției 
TRJ; 


LET Afs BIS (1924) 


gpoi, se révine la valonrea numerlcà eù VAL, ; PRINT VAL (AS). 

ln acest caz însă, méniorazea lol 1024 en air în variabila AS; couxumü mai multă memerie 
nerit păstrarea lui cu număr. Dacă xe splict-fune(ia VAY, unci expresii en "ATN (X)*4", varla- 
bila X fiind definită 1n preslanil, evaluseta va fi coruptă, deci, o expresie vare poate contine varias 
bile, se defineşte o singură dul tà program 31 poate fi evoluatá pentru diverso valori ale vania- 
bHelor, cu siuiorul lui VAT, (similar cu înstrucțiunua DEFEN din miele versiuni BAS 1C). De 
exenplu, pentru generarea unui niipàr alestor între 1 şi 10'se va défini Ja Incepitul jeugrarantui 


girul : 
AS= “INT (RND (0)*10-- 1)" 


și de fiecare data[eind se doregte un numér, se va uhținc prin ulilizarea fanefiel VAL (AY, 
Na VAL (AŞ), C ` 


0.4.9. fnstruejiuni de control (transfer necondijionnt, condiţionat yi 

eiclare) 

În mod normal. execuția instrucțiunilor unui program este secvenfiatfi. 
Totuși este necesar uneori repelurea de mai multe ori a execuţiei unor instruc- 
Huni (fără să fie scrise repetat) sau. în funcţie da valoarea unor date, să nu se 
execute instrucțiunea următoare, vi să se treacă În execuţia alleia, dintr-o 
altă zonă a programului. SC 

Instrucţiunile care modifică execuția secvenjialá a programului sint 
instrucţiunile de control. în BASIC cle sînt următoarele : 

— instrucțiunea GOTO, care reslizeazà transferul necondifienat (inde- 
pendent de date); 
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— instrucțiunile ON şi IF pentru transfer condiționat; 
— instrucțiunea de ciclure FOR. 


Instrucţiuni de trausfer necondiționat, Pentru transferul necondiţionat 
se fulosezte instrucțiunea GOTO. i 

Format: ur. linie GOTO n 

Execnpie instrucţiunii conslă în transferul coutrolului la instructiunen 
co numirul de linie n. Saltul se poate face la orice instrucţiune din program. 


Baauplu s 
10 LET A-SQR (S12+Yt2 
30 GOTO 109 
70 GOTO 19 
190 PAINE A 
Instrueginni de transfer coudiționat. Poniru realizarea transferului von- 
dițiunaL sint disponibile.douà instructiuni : iustructiunea IF și instrucținuea ON. 
Formatul justrucţiunii Îl este: 
nr. linie IE. expl ralutie exp2 THEN n1 
unde: — expl gi exp? sînt expresii numerice situ şiruri, 
— nl este nn număr de linie, 
— relație poata fi: 
egalitate 
mai mare 
mai iie 
mai mare Su oul >= sau => 
mai awe sau egal = sau >x 
«diferit i <> san >< l 
Dacă ron in diutre expl şi exp2 este adevărată se va trece la inslruc- 
fiunca cu munărul de linie: nl, dacă nu, execuţii va contiuua cu iustrieyiuuea 
care urincază dnpà TF. 


AVU 


Exempin : 
100 IF X-pY-5QH(X) THEN 75 
Ta exzul coimparatisi sirurilor de caractere, ambele expresii trebuie să fie dò 
Gp gir. Sirurile stat egale ducă au aceeas lungime şi contin acelea5l caractere. 
Exempiu t 
Wie LEY. ASz-"ABC" 
29 IF A$—'"ABC^" THEN 109 
După execuția instrucținnii 20 se va sări là execuţia iastrucțiunii 190. 
Un sir se consideră mal mie decit altul, ducá are lungimea mai mică sau, 
in eaxul lungimilor egale, dacă în ordonarea lexicogtaficá, primul şir precede 
pe nl doilea (cifrele şi semuele speciale preced literele —conform cu codurile 
ASCII). 
Exemplu : " ABC" este mai mic decit "BCD". 
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Următoarea secvență de program, testează dacă de la consolă s-a acționat 
caracterul "A", dacă da se continuă execuţia, dacă nu, tipăreşte caracterul 
citit (sau șirul nul, tn cazul cînd na s-a acţionat nici o tastă) și oprește execuţia 1 

10 LET AS<iNREYS 
29 IF A$cz"A"THEN 56 
$0 PRINT As 

40 STOP 

AR e e 


Programul următor serie la mijlocul ecranului textul ABC şi îl şterge 
la acționarea alternativă a unor taste: 
10 IF INKEYS=" "THEN 16 
20 PRINT AT (16, 15) “ABG? 
30 IF. INREY$:2" " THEN 30 
40 PRINT AT (16,15)" 
56 GOTO 10 
Formatul inslructiunii ON -oste : 


nr. linie ON expresie GOTO listă 
sau 

nr. linie ON cxpresie GOSUD listă 
unde listă ceprezinlá ua sir de numere de lipic. 

Fie N pariva. înlicaă a valorii expresiei specificate În instrucjiunea ON. 
Execuția instrucţiunii coastă în saltul la instrucțiunea cu al N-lea număr de 
tinie diu listă. În cazul Ini QN-GOSUB. fiecare numár do linie, din listă reprezintă 


startul ines] subrutine din program. Dacă N nu se încaditază între : 
ISNS rorărul de elemente din listă, 


atunci excciţi unui cu instrucțiunea care urmează după ON. 
Exemple : 
10 ON M-5 GOTO M9, 509, 0d, 75, 65 
M-ă trebuie să nibà o valoaro între 1 şi 5 altfel, instrucţiunea nu are 
nici un efect. 
20 ON X GOSUR 1009, 1090. 3600 
În funcţie de valoarea lui X se execută una din cele trei subrutine caro 
încep la liniile 1000, 2000 sau 3000. 


[nstruefiani de eitlare, Instrucţiunile de ciclare sint folosite pentru exe- 
cufia repetată a unor instrucțiuni din program (numite cicluri sau bucle în 
program). i 

Pentru acest lucru se puteau utiliza instrucțiunile dé transfer. Introdu- 
cerea unor instrucțiuni speciale do ciclure s-a făcut îm scopul simplificării 
muncii programatorului. 

în BASIC, peniru realizarea ciclnrilor, se utilizcăză instrucțiunile FOR 
si NEXT. 
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———————————————Ó—————————uAAGE eL 
Formatul instructiunilor : 
nr. linie FOR variabilă=expl TO exp2 STEP exp3. 
(inalvucțiuni ce Formează bucla) 
or. linie NEXT variabilă 
unde; — variibilă reprezintă o variabilă simplă care este 1tjusil8 pentru 
cantreJul numărului de repetări ale buclei. Buclu consid din instrue- 
țiunile care se găsesc inire instrucțiunea FOR ai instrucțiunea 
NENI, cu ucueaşi variabilă. 
— expl. căp2 şi expS siut, expresii. 
Semnificaţia acestor expresii este următoarea ` 
expl — este valoarea iuițială care se atribuie variabilei din instrucțiunea LUH, 
expZ — este valoarea finală a variabilei, 
exp3 — esie incremeutul (pasul) cure se adună la valoarea variabilei FOR, de 
fiecare dată, cînd se execută iustrucțiurile din buclă. 
Observaţie. : 
Este posibil ca exp3 să nu se specifice, instrucțiunea TOR av ind lorma t 
ut. linie FOR variabilă — expl TO exp2 
În aest. caz valoarea pasului ëxp3) se consideră 1. Bucla se cxecot& 
atita timp cît valoarea variabilei FOR este mai mică sau egalà cu cxp2. 
Execuţia instrucliuuii NEXT constă în adunarea valorii ER (exp3) 
la valoaren variabilei FOR şi teatul dacă nous valoare a vürinbilei nu. depă- 
geste valoarea limiiă (exp2). Dacă valoarea limită este depășită execuţia huclei 
ia afirșit, urimăloarea instrucțiune executată fiind cea de după NEXT. 
În interiorul unei buele FOR pot exista alte bucle cuconaiția ca' buclele 


aŭ no se intursecteze. 


Exempli7corect Exemplu incorect 
19 FUR X= 1$ FOR X> 
$0 FOR Y= 70 FOR Y= 
100 FOR Vo 1:20 NEXT X 
D ANA NRXT Y 
170 NEXT + 
400 NEXT Y 


700 NEXT X 


Sint permise maximum trei bucle: FOR incluse una’ în alta. 


Exemplu i 


109 FOR 1-1 TOS. 

120 FOR J=1 TO 29 STEP 1 
139 READ B (1, 3) 

MØ NEXT J 

169 NEXT I! 


Instrucţiunea 130 READ se va executa de 20x 3&6 de ari. 


a —— —— 


n. P—— — 


— 
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9.4.10. Exerciţii 


1, Pruuranuil următor afişează setul compet de enractesc. 


16 LOR N=0 TO 127 10 NEXT N 
26 PRINT CHRS (N) 49 STOP 


Să se moditice. programul, utilizind tuncţia AT în PRINT $i atişind mumai cifre, peniru 
a se ohţine un cens elecironic, (Teniporizarea se poate realiza cu un cicla FOR). 


2. Pentru calenlüUsunivi a N numore realo se poate utiliza programul t 


10 PRINT "Na" ij , 985 S—54-A s 
15 INPUT N 10 C—-C-4H1 

26 Cai Së IF Ce=N THEN 30 
25 $—0 00 PRINT S 


30 INPUT A 


Să se desrric acetași algariir de calcul folosind instructiunile de ciclare FOR/NEXT ru 
variabila contor C. 


A, ismătaru! program nfisenzá numărul eu vuloarea maximă dintr-un yir de:5 nanicre 
introduse i 


10 INPUT M 50 MA 
"6 FOR I—2 TO 5 50 NEXT T 
A30 INPUT A 70 EKINT "MAXIMUL-"; M 


40 IF M» —A THEN 6p 


Prag ml poate fi utilizat pentru aflarea muximplui dintr-un sir de 10 suu 100 de valori 
dacă nindificim uita f din Instructionea 20FO R. Ce trehuie inadificut în program pentru a 
calcula minimul, 


4. Să se modifice programul de calcul al suraci (dintexéreitiul 2) asttel incit;sá calculeze 
produsul numtrelar nenule dä cele N numere (pentru simplificare se va folosi ciclul FOR; NENT). 


S, Pentra calculul factórinfolul dintr-un număr natura] dat poate fi utilizat programul 1 


10 PRINT “INTRODUCETI N="; df Pespet 
20 INPUT N 50 NEXT ` 
25 Pæ1 59 PRINT "Nim"; P 


30 POR Iz2TO N 
Să se găsească o uită solutie pentru areostă problemă, 
in Executati programul : 
16 FOR N=10 TO 1 STEPS 
20 PRINT N 
39 NEXT N 


Treustarmaţi acest program în unul ce nu sohtine ciclul FOH-NEXT, (procedind Invers 
exenițial 2). 


7. Fie dat um vector A do zece elemente, Programul de mai jos, erdonaază,creacător ale- 
mentale acestui vector, deci, fn final va f snlistăcută relaţia: A(DSAQ € (10). 


10 FOR Ic1 TO 1$. 
15 READ A (I) 

20 NEXT I 

25 FOR I—1 TO 9 

30 FOR Ft TO 19—1 
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40 IS A (J)< =A (J+1) THEN 79 58 A U+U=T 
30 TA UI 70 NEXT J 
55. A (OJA (1-1) 8p NENT 1 


85 REM “AFISAREA REZULTATU- 
LUUT 


9p FOR I—1 TO 19 
100 PRINT A (1). 
110 NEST I 

120 END 


De remarcat cá, aceeaşi variabilă | ponte pare In mai nuito cicluri FOR-NEXT, Deh 
conflict, ducă ciclurile respective na se intersectează (nu au instroc]luni comune). De ce a fost 
necesară utilizacea variubitei T tu instrucțiunile 59 yl Gg ?. 

Cum poate fi aceclerat acest ulgoritm ? Să se Indice un alt algoritm (program) pestra 
acesală problema ? Giclurlie (10—20) pentru clttre.și (8—110) pentru tipărira- pot fi Inloculte 
prin elte o singură iastructiune matriceala (veri capitolul : Insteuetiuni de calcul vu snatriei). 
Să se modifice programul astfél tucit.să ordoneze un vector A cu N clemente, 2 Ns 254. 


E. / 

8. Similar eu exercitiul 7, se prezintă un program ce ordunează crescălar (sortexá alfa- 

bettet v listă de nume, care sint depuse într-o matrice de șiruri de carautere. Programul se donsa- 

beta de cel precedent prin faptul căi utillzeazà jastructiisul IF peutru ciclare, Jur ordunaren se 

tace dasvrescătur, însă, atizncea feindu-se incepind cu ultimul şir către primul Qoaxim), rezul- 
tutele vor fi afişate 1n ordine alfabetică (urescătoare). 


10 REM ^SORTAHIS ALFABETICA" 120 It WS(H)WI(Z) THEN 139 


20 DIM WS (5,10) 138 X-2Z41 

30 LET U=g 149 uero 109 

40 LET G-5 150 Q5— WS (2), 

59 POR A=] TO 5 1856 Wie WE (D 

60 INPUT WS (A) 170 WS (B)— Q8 

70 PRINT WS (A) 189 GOTO 130 

-80 NEXT A 199 PHINT WS$ (G) 

AS PRINT 200 ü—60—1 
9) LET Ze? 210 IF (0 THEN tg 


100 Bz:Z4-1 f 220 ENT. 
119 18 H» 6G THEN Log 


Programul foloseşte tubloul WS (5, 10) pentru păstrareu a 5 şiruri de muxiinum 16 carae- 
tere fiecare. Pentru extinderes lu un numár mat mare de șiruri, trebuie modificaté Instrucţiunile v 
26 DIM, 40 LET d Dä POR, scriindu-se fn locul clfrel 3 nn număr darit (maximum 254). 
Se ubservá că, afişarea rezultatelor se lace rind pe rind, imodiat după ubţiutrea, pe ultins pozl- 
ție în WE, a şirulul mai mic, Cuin poate îl modificat programul pentru a afişa rozultatul, din 
WS (3, 19). după ordnnarea sa integrulă (ea In exercițiul precedent) ?. 


9.4.11. Utiliasrea subrutinelor. Cînd este necesari electuurea de mai multe 
ori într-un program a acelorași calcule (instructiuni) pentru date eventual difo- 
rite, se poate folosi conceptul de subrutin&. Utilizarea subrutipelor conduce 
la o diminuare a dimensiunii programului, deoarece prelucrările: se descriu o 
siugură jdată (în cadrul subrutiuei) și pot [i executate de cite ori este nevoie, 
prin apelarea subrutinei, eventual cu alte date. Folosirea funcţiilor (STN, COS, 
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LOG, GET, PUT ete.) tu alcătuirea expresiilor, constituie un exemplu în acest 
sens, deosrece funcțiile sint definite o singură dată, în interpretor, şi sînt 
apelute cu diferite argumente de către programator. 
Pentrü definiróa umor subrutine mai puteruice (ce descriu prelucrări 
cunplexe asupra datelor), în limbajul BASIC sint disponibilo. instrucțiunile 
GOSUB, RETURN si CALL care vor fi descrise în continuare. 


Iustruețianile GOSUB și RETURN, Aceste iustruegiuni permit utilizarea 
subrutinelat in BASIC. 
Atunci cînd o suecesinue dată: de instrucțiuni, apare de mai multe ori 
într-un program, în locuci diferite, ea poate [i sexisă cu subrutină. 
GUSUB 
Format : 
ur. linie. GOSUB. nl 
Executia instrucţiunii constă în transferul controlului la instrucfiunea 
eu numărul al. i 
Tnsiruefiunen nl poate [i oricare diatre instruetiunile ce alcătuiesc a 
subrutiuă (fu geueral pricaa). 
:-HETURN 
Format : 
nr. linis RETURN 
luxegulția insfructinii couslá în transferul controlului la instrucțiunea 


ee urmează după iastrusțiunea GOSUR, care a apelat subrutini. 


Exemplu t 
100 LET X=5 590 Y=PX 
110 GOSUB 500 510 LET Ze123*EXP (Y) 
120 X27 529 LET Y-—SQR (Z4 2) 
130 GOSUB 500 Dan JE Y «109 THEN 550 
149 X211 i 54) RETURN 
159 GOSUB 500 ` 900 PHINT X, Y 
169 STOP 580 RETURN 


Variabilele la BASIC stat globalice, deci cele ulilizate: într-o subcutină 
pot. D apelate şi tu altă parte a programului. H 


Wee? 


Cda Apelurea sabrutinalur seris în limbaj mașină. Pentru a apela, dintr-un 
pragraru soris lu limbaj BASIC, subrutine serise. în limbaj maşină, se utilizează 
' ox ` E 


instruețianea CALI. f Io i 
Em Wier d «ma, Eta egteet 
Formatul instrecțiu uf este următorul : ü E ETE a ES 

: MASS 
aa nr. linie CALL. (M, P1, P2, ... PN) à 
unde : 


— M este numărul subrutinei (de la e ta 254)1 i 
— Pl, PN Sint pársinetril (constante, variabile: sau expresii). 
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Adress Legătura diotre numüru! subrutinei şi 
&dresa din memorie, unde. se află subrutina, 
se stabilește prin jntermediul unci tabele 

Wem care se află da a adres prestabilită 

că (fig. 9.1,. harta  acupării memoriei). O 
intrare în tabelă contine trei octeți. În primul 
octet se silă numărul rutinei inv in urimăterii 

! dot adresa. Sfirşilul tabelei este detectat prin 
îutilnirea unei înirări eu numârul 295. În 
cazul cînd nu se folosesc subrutine în limbaj 

Mäerz — ynasiná. apelate dintr-un progrum BASIC, 

BP tabela se reduce la un singur octet cn valoa- 
rea 255. În acest caz. iniţializarea (abelei 
(ocletului) se face automat, de către inter- 
pretorul BASIC, lu lansarea sa în execuţie, 
priu comenzile B sau 430800 (vezi parugrn. 
jul 9.3.1). 

— Transferul parametrilor ge asigură priu 

Pig. 9.1. Harta ocupării me- veferință. Adresele parametritor (pe doi stefi) 
ronie siut depuse fn stivă, indicată de registrul SP, 

in ordinea; adresă de întoarcere iu programul BASIC, adresa P1, adresa 

P2, ..., adresa PN. 

Deci subrutinele în limbaj maşină, in caza! $n care [nlosesc. parametrii 
{primese şi/sau returnează), vor trebui să tacă uz de instructiuni SÉ, peutru 
ebtinerea adreselor paramelrilor şi s% se termine cu instrucțiunea RET. 

Observaţii : 

1. Subrutiaele in limbaj maşină. trebuie să descarce din stivă adresele 
tuturor parametrilor înainte de terminare (RET), pentru ca adresa luată din 
stivă, la execuția instructinnii RET, să fie cea depusă de interpretor. Inter- 
pretorul nu face nici un control] fn acest Sens; 

2, Parametrii an valori reale, reprezentate pe patru octeți în formatul 
eu virgulă mobilă. În subrutina scrisă ju limbaj mașină, trebuia să se ţină 
seama de această reprezentare, pentru ca prelucrareá să fie corectă, 

3. În cazul etud parametrii sint nume de tablou (vector sau matrice) ele- 
menteje tabloului sint depuse în memorie liniar, pe coloane (In cazul matricilor). 
fiecare clement cgupind patru ueteţi: La subrutină se transmite adresa. primului 
element du pe prima coloană. Știind. acest lucru, se poate avea acces în cadrul 
subrutinei la oricare element al tabloalui. 

4, Parametrii variabile simple, nedefinite în prealsbil (care vor primi 
valori rezultate din subrutină). mi trebuie să fie imforcálafi cu parametrii 
expresii. 

Exemplu : i 

În continuare se arată cum trebuie actualizat indicatorul la memoriu 
disponibilă (IMD)* și definită tabela de legături, pentru utilizarea a trei sub- 
rutine cu numerele 1,2 şi 4. 


* IMD este iniţializat cu valoarea 6800H, deci indiierent ducă se utilizează subrutine, 
se rezervă e sami de 1Ka (400H) pentra subroutine. 


PI 


» elf 
ul 


Iw et (pi 


WE à ——— a —— M — 
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ORG ü3hEH : adresa Jul IMD * 


MD ; DW MDISP  ; actuslizare IMD 

TSUB 1 DB 1 : intrare peptru 
DW SUBt è aubtrutina nr. 1 
DB 2 
DW- SUB ; adresa subhitinel 2 
DB 4 ; intrare. pentru 
DW. SUB3 ; Subruitina nr. A 
DB 255 : sfirgit tabelă . 

SUBI: . : cod pentru 
` : subritina nr. 1 
RET 

KUB2 + . ; God pentm 
. : subrutinà nr. 2 
HET 

SUD: . ; cod pentru 
CM ; süibrutina nr. 4 
RET 

MDISP EQU $ ` inceput memorio 
END ; disponilitld 


Codul rezultat în urma asumblării prograumlni de mai sus, seris în limbaj 
de asamblare, va trebui să fic introdus la adcesa specificată, eu ajutorul comen- 
ailoc MONITOR, înainte de lansarea in execuție a interprelorului BASIC. 
După introducerea subeutiuelor în limbaj mașină interpretorul BASIC se laa- 
sează în execuție cu comanda G0315 (pentru'a nu se face inifializarea impli- 
câtă a lui IMI), ca în cazul absenței Subrutinelor). 


9.4.12. Exerci(ii 


L Unele aplicații uecesitii accesul în momnria calculatorului pentru serlorea sau citirea 
valorii unui octet de în o anumită adresă; După vum se lie unttatea de memorie adresshbilă este 
actelul, inr procesorul paata adresa f5536 octeți (84 Ko). Pentru realizarea acestor funcţii, unele 
versuri ale limbajului BASIC canttu instrucţiuni speciale, de exemplu t PEEK A — funcția a 
cârei valaare éste eantümtid octetalin de là adresa A, cu aA «62535 ; lar PORBA, V oste n 
instructiune ce 1nscrie tu octotyl de Ja dresa A valonren V, cn GN 45255. Se vor simula aresta 
două instrucţiuni utilizind «ouă subeutiue în limba] de asamblsire apelate cu CALL din BASIC, 
Astfei, pentu PEEK A, se defineşte subratiaa muiwmărul 1, en pacametrit A şi R; A va conțina 
adrera inr în B se va dopune valoarea uctelului de la udesa A. Pentru POKE A, V s0 datinegta 
a deua subrutipă cu parametrii A şi V care va Inserio ja adresa A valuarea V (Bis V x:295). 

Suheutinele ze vor apela, itintesun program seris în BASIC, prin CALL (1, A, B) pentru 
PEEK A și GALL (2, A, V) peutru PORIE A, V. A M 

ulirulinele în limbaj de asânihlore sint precedate de tabela de legătură i 


ORG S35RH ; adresy IMD 


MD: Iw SPSUB ` ; actualizare IMD 
DB 1 : tabela de legătură 
DW PEEK : adresa subrotinsi PEEK $ 
DB 2 : intrare pentru a li 
DW POKE ; 2-8. subrutiná 
DB 255 ; efirgitul tabelei — 
PEEK: POP B q în reg, B, C adresa celni, 


: deal 2-lea parametru 


* În cazul cind: subrutinele nu depâşuse 1Ka.: sa poato låsa valoarea implicită pentru 
IMD (6800H), începindu-se tu ORT GINĂH și delinirea- tabelei 'TSUR 
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în D, E adresa sarinbdilel 


POP D ; 
A (primul, gură metru) 
PUSH B ` salvare reg, B, G 
CALI, ADRDE : fn reg, D, E adresa de la vare citiin 
POP R ; în reg, B, C adresa [a care depunem 
; Volourea crita 
y valoarea va trebui memorată în Tormatul cu irgul mohilă 
LnAX D î În res, A nclatul citit 
MVI L.8 ; normalizare 
NORM! ORA A i 
JZ NULLI. — ; valnarea esie zeru 
JM GATA 
BAL 
DOR L 
JMP NORM 
NULFL ı MYI L, 4H ; exponentul mi zero 
GATA : STAX B ` scrierea romitatulus în 
INX B ; virualë mobilă 
NA A 
STAX B 
INX B 
STAX n 
Mov ^, Y. : cxponentnt 
INN n 
STAS n 
RET 
POKE 1 ; subrutină care acrie vatuarea celul de-al 
; det parametru In adresa dati de primul 
POP n : în B, C pdresa valorii 
LDAX B ; conversie Ju intrea 
ORA Á 
JE CONT f 
MOV D, A ; salvare în reg, TY 
INX B í 
INX B 
INX R | 
UDAX n ; citire exponent 
ANI UEH 


RLG 
DER E 
INZ 1—2 

y în reg. A se află valoarea 05 V 5255, convertită In între, 
POP D ; adreso primuni paramelro 
MOY R, A ; salvare văloaru 
CALI ADRDE 
MOY A, B ; depunerea valorii la” 
STAX D ; adresa din reg. D. E 
RET 

ADRDE: ; suhrutină ce. primeşte 1n 


: D, E sdresa unui număr in 
; virgulă mobili $i litoarce în 
; A, E valuarea sa (ca mër intreg) 
LDAX D ;dn seg. A primul octet al 
ORA A . ; mniintisei, Este O? 
JZ ZERO ; pumaărut este zero 
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MOV H, A 
INS D 
.LDAX D 
MON UA : An (H, L} primii 2 octeți ei 
; nurilrulul ` 
INN D 
INN D 
LDAX n * 1n reg, A exponentul 
ANI Hai) ; se păstrează ultimii 
MÖV CA ` 3 Di, salvare în reg. 6 
LXI D, 0 ; D, E=¢ 
€ONV1 DAD H 
XCIAG : . : 
ADG BL, HL. ; HL=HLA+BL+CY (220) 
DCH [9 
SCHO" 
RZ 
JMP CONV 
ZERO: Lxt DAE] 
im RET 
EFSUB EQU $ 
END 


Cartul ohiect rezultat în urns usomblării subrutinelor, se và depune 1n memoria vaimu- 
intorului (cu comanda Substitule (5) a monitorului). Apal, ep lansează în execuţie interpreto- 
ral BASIC, ru coinonda. (30800, In continuare, se ponte introduce un program BASIC care uti- 
Wseezá subrutinele în limhuj masginik.: 


10 PRINT “INTRODUCETI ADRESA Am”: 
20 INPUT A Po BER 

2h PRINT "INTRODUCETI VALOAREA V="; 
$0 INPUT V aa i 

ap REM “ÎN OCTETUL DE LA ADRESA A” 
45 REM "VOM DEPUNE VALOAREA V” 

Së CALI. (2, A. V) 

60 REM “PENTRU TEST VOM CTTI” 

65 REM "VALOAREA SCRISA SI O VOM AFIŞA” 
70 CALL (1. A, C) i 

39 PRINT G 

90 GOTO 10 

Programul urmáüter tealizeazà acevasi funefie ca și comanda Fill a moni- 

torului 

10 INPUT Al, Ai, NV 

20 FOR Az:A1 TO A2 

30 CALL (2, A, Vi 

40 NEXT A 

50 END 

. Pentru ex programele să funcționeze corect, trebuie ca adresele introduse 

să rorespundă zonei de memorie R/W şi să nu altéreze prágramul BASIC (să 
nu se autodistrupă). 

În cazul utilizării subrutineler. în limbaj mașină, comanda de ștergere a 
programului : SCR, va şterge şi subrutinețe fn limbaj maşinii. Péntru[a nu intro- 
duce din nou subrutinele maşină de-la tastatură, ele pot Fi salvate pe caselă, cu 
comanda SAVE, imediat după ee au fost introduse şi s-a intrat în BASIC. În 
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acest caz, ele var putea D încărcate de pe casetă cu comanda LOAD înainte de 
introducerea unui program BASIC, de la tastatură, cure le utilizează. 

2. Calculatorul dispune de un difuzor care este utilizat: ca „martor sonor“ 
la apăsarea unei taste. Dacă se asociază tastelor sunete eoresputzátoare notelor 
muzicale, se va transforma caleulatorül într-un instrument muzical. 

Difuzorul eite conectat prin portul de ieşire 22H (31 zecimal) pe bitul 3. 
Pentru a obține frecvența unei note dorite, se va transmite pe acest port şiruri 
de 1 şi 0 de durate corespunzătoare. Pentru a se lransmite o valoare pe uu port 
de ieşire ponte fi utilizată funcția PUT (ar: pact) din BASIC, de exempl : 

19 PUT (34): 
20 PUT (349% (1 în bitul 3) 
38 GOTO 19 

Pentru a obține frecvenţe mai muri, trebuie să se utilizeze o subrutină 
in limbaj de asamblare, Astfel, se va defini o subrutină în lirnbaj de asamblare 
care va primi ca parametrii : fréeventa. notei dorite şi durata şi va genera un 
sunet. corespunzător. Subrutinà se va apelu cu instrucțiunea CALI (1, F, D), 
după ce, In F s-a iocârcat frecvența iar în variabila D durata. Valorile lui E şi D 
depind de modul în care s-a seris subrutina de generare gi de frecvenţa impulsu- 
rilor dn ceas ale calculatorului. 


Se va folosi următoarea subrutină în timba] maşină : 
ORG 635E8H 


pw MDISP ` ; adresa memoriei libere 
DB l. ; Pubuli dn iegâtură 
nw SUNET — ; ndresa.subrutinel 
DB 255 ; Sfligitul tabelei ; 
SINET: POP H ; adresa velul do al datea parametru (P2) 
CALL CVINT — ; conversie 1n intr» 
MOV. E A ; "valoarea P2 (dumta) o pastrăm în rey. A 
POP H ; adresa P1 (îredvența) 
CALL CVINT — : convorsle în ing ` 
MOV RBA = salvare Pi D reg. B 
Lupi MOV D, B ; în D frecventa 
Lëtz: MYI A, 8 ; transmito 1 pe bitul 3 
QUT nH ; al portului 22H 
DCH n. 
JNZ Loor2 
MOV D, HB ; n D frecventa 
LOOPS: RRA A ; transmite 0 pe bitul 3 
OUT 22! ; 88 portului 22H 
DCH D 
AJNZ LOOPS 
DCH d ; deccemontoazá durata 
JNZ LOOP1 
RET 
CVINT : : subrutină ce primește în reg. H. T, adresa unui număr reprezentat 


t în formatul virgulă mobilă pe 4 octeți şi întoarce g 

i valoarea sa (întreagă) în reg. A (se presupimé că valoarea 
; numărului este cuprinsă între 8 sl 255). 

MOY AM ; primul octet al numărului 


ORA A ; este 8? 

RZ 

MOV D A ; salvarea primului petet 
INX H : în reg. D 


Instrucţiunile limbajolai BASIC H 


INX H 2 
INX H 
MOV AM ` exponentul 
ANI OkEH ; păstrează ultimii 4 biţi 
MOY GA 
MOV A,D ; conversie In Jntreg 
RLC . ; (aliniere le dreüpta) 
DCR G 
INZ $—2 
RET 

SDP : EQU D 
END 


După introducerea codului subrutinei cu comanda Substitute a Monitora- 
luai, se va lansa în execuţie interpretorul BASIC cu comanda GOSOD. Subrutine 
ae va apola, aga eum s-a arat, cu instrucțiunea CAT,L, din BASIC (de exempla 
CALL (1, F, Dy). 


a £5 b 5$ ma a s 
Fig. 9.2. Parametrii de frecvenţă ai notelor. 


Pentru a abține (genera) notele dorite, parametrni de frecvență P, va avea 
valorile din figura 9.2. Program! următor usuciază tastelor numerice 1, 2, 3, 4 
notele Do. He, Mi, Fa. 


5 D-50 30 F—-bi 
7 F-—51 35 BETURN 
10 AS INKEY$ 40 F=45 
16 IF At! "THEN 25 45 RETURN 
20 ON VAL (AŞ) GOSUB 30, 40, DO, 09 GEO 
25 CALL (1, F, i?) 55 RETURN 
24 GOTO 10 69 T=38 
70 RETURN 


O notă va dura pînă lu acţionarea unei Laste (1—4). corespunzătoare 
altei note. 
Íncercati să extindefi programul, încit să asociati şi celelalte nnte nnor 
taste. 
Progranuul următor generează note folosind generatorul de numere alea- 
toare pentru frecvență si durată : 
16 CALI, (i, INT (RND (9)*90-1-10), INT (RND (P)°50+5) 
20 GO TO 10 


Generarea de note cu frecvenţa din ce în ce mai mari se poate realiza en 
programul : 
10 FOR 1—100 TO 10 STEI) 
28 CALL A T, 5p) 
$6 NEX' 
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Observaţie: Ştergerea programelor de mai sus, în vederea introduceri) 
altora ce utilizează subrutina în limbaj de asamblare, nu se poate face cu SCR 
pentru că se va șterge si subrutina. Peutru a nu gterge programele linie cu linie, 
se va ieşi de sub controlul interpretorului BASIC actionind RESET, intrind sub 
controlul Monitorului, iar apoi se va reintra în BASIC cu comanda GRIS. 
Astíel, subrutina în limbaj maşină va rámine şi se va şterge doar programul 
BASIC. 

3, Se va utiliza o subrutin în limbaj maşină ce permite generarea de 
sunete de durată mai mure, folosindu-se pentru durată un contor pe doi octeți. 
Subrutina va primi tot doi parametrii, primul reprezentind frecvența iar cel 
de-al doilea durata. 


ona SEH 
DW MDISP  ; adresa memoriei dispordbile 
Db 1 ` programului în limbaj BASIC 
DW NOTA ; adresa subivutinel 
DR ami 

NOTA ı POP H ; adresa parametrulul 2 
GALL CVINT — ;(dumtz) 
MOV EA ; durata tu reg, E 
POP H ; adresa primului parametri 
MOV Da ; în B frecvonia 

IAR: GALE, 50 
pon E ; decrementare contor 
INZ IAR 
RET 

sp: LXI HREH 

St: MOY D, B ; în D frecvența 
MVI A, 8 ; Lin bitul 3 
ouT 23H 

Wai DCX H + buclă în care se 
MOV A, H : generează 1 pe durata 
ANA A ; dntà de reg. D. 
RZ ` 
DCR In 
INZ $2 
MOV n, B 
MYI A, H i 0 în bitul 3 
OUT 22H 

S81 DEX tt ; buclă în care 
MOV A,H ; se generează d 
ANA A ; pe durata dati de 
RZ 
DCR D ; reg. D 
JNZ Si 
JMP DN 


Subrutina CVINT este identică eu cen din exemplul precedent. 

Programul următor va apela. subrutină în limbaj de asamblare. descrisă 
mai sus pentru interprelarea unei melodii. Frecvenfele şi duratele sînt date în 
instrucțiuni DATA, fiind citile cu instrucjiunea. READ. 


19 BEAD A, B 
20 CALL (1, A, B) 


Insiructiunile limbajului BASIC 93 


30 GO TO. 10 

100 DATA 53 3, 45, 1, 40, 3, 51, 1, 40, 2 

110 DATA bt, 2, 40, 4, 45, 3, 4d, 1, 38, 2, 46, 1 
120 DATA 45, 1, 38, 8, 40, 3, 38, 1, 34, 3 

130 DATA 40, 1, 34, 2, 40, 2, 34, 4. 33, 2 

140 DATA 34, 1, 30, 2, 34; 1, 38, 30, 8, 34, 3 
150 DATA 51, 1, 45, 1, 40, 1, 38, 1, 34, 1 
160 DATA 30, 8, 30. 3, 45, 1, 49, 1, 38, 1 
170 DATA 74, 1, 30, 1, 27, 8, 27, 3, 49.1 
180 DATA 38, 1, 34, 1, 30, 1, 27, 1, 25, 7 
190 DATA 22, 1, 30, 2, 38, 2, 27. 2, 34, 2 
200 END ` 


Execuţia programului se va Lermini prin apariția erorii 21, deoarece au 
fost epuizate toate constantele din instrucţiunile DATA. Modificaţi programul 
utilizînd instrucţiunea RESTORE, reluîud interprelarea melodiei. 

9.4.13. Instrucţiuni dé calcul ca matrice, Cù toate că instructiunile deja 
prezentate permit cfectuarea de prelucrări asupra tablourilor, prin utilizarea 
variabilelor indexate (cu unul sau doi indici), limbajul BASIC contine un set 
de iustrucțiuni care permit prelucrarea tablourilor (cu vna san două dimensiuni) 
fără referiri la l'iccare element al tabloului. În acest sens sînt disponibile urină- 
toarele instrucţiuni : 


MAT READ A, B, ... Citeşte datele din instruetiuni DATA pentru 
MAT READ A (3, 4), B (10) tablourile A, B dimensionate în prealabil 
sau în instrucțiune. 


Observaţie : Datorită prefixnlui MAT, ulilizat tn instruuțiuni, tablourile vor fi numite inatrice 
{indiferent dacă au una sau două dimensiuni) 


MAT INPUT A, BR: Citeşte datele pentru matricifo A, B de la con- 
MAT INPUT A (2, 4, BO,3), e: sală. 
Dateleiniroduse atit memorate linie cu Vale, în inatrire. 
MAT PRINT A, BR: 
MAT PRINT A (4,4). B(3,2) t "Tipăreşte Hüle cu linie valurile curente ale matrici- 
lor A, B dimensionate în prealabil sau rediinenslonute 
i ürstructhmne, 


MAT A=B Matricea A primeşte dimensiunile ui H $i apol 13 este 
coplat. în A. 

MAT Ae BAC Adouă sau sesde mutricile B el C. Matricile B gi G tre- 

MAT Ac-B-—C bule să aibă accleayi dimensiuni. Matricea A nre diuen- 
siunile malricii rezultat, 

MAT Ass BS Ínmutteste matricile B şi C și depune rezultatul in 


matricea A, care va primi dimensiunile rezultutului. 
Dimensiunile matricilor B gi C trébuie să [io compati- 
bile (produs de matricii, 

MAT A=(expresle)*B Renlixesză produsul matricei B cu un scalar egal cu 
valonren expresiei dintre paranteze, Rezultatul pro- 
dusului este depus în matricea A, caro este dimensio- 
natá corospunzătar. 

MAT Ass INN (B) Inverează matrices pătrată B. 

MAT A=INV (B D luversa cesta momnrală în matricea A caye và aves 
dimensiunea lui B. Valoarea. determinintulol va fi 
atrihuită variabilei 1). 

MAT Ae TRA (B) Calculeszü transpusa matricei B şi depune valoarea 
în mgiricen A, care va avea dimenslunffe imalricel 
rexultat. Tablourile A și B trebuie să fle distiacte. 
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MAT Ae ZER Atribule tutnror elamentelor raatrical A valoarea zero, 
MAT AcZEH (3, 4) Matricea A poate fl redimensiunată conform speci. 
MAT Ae ZHP (7) ticaţiilor tin instrucțiune. 

MAT AeatOn Atrihuie tutumie clamontelor matricei A valnarea 1. 
MAT A=CON (3, 10) Matricea A poate f| redimenslonatá conform speci 
MAT A=CON (B) ficatillor din instrucțiune, ` A 
MAT A-—IDN Atrihuta elementelor dingonalel principale valoarea 1, 
MAT A=IDN (1,5) celorlalte elemente Ji se atribuie valoarea zero. Dacă A 
MAT Ass IDN (7) eate -matrire pătrată ea va Unveul matrice unitata. 


Observație ; 
Instrucţiunile matriciale pot fi împărțite în două categorii : 
— instrucţiuni de intrarefiesiro 
MAT READ 
MAT INPUT 
MAT PINT 
— instruefiuni de atribuire — în care matricei din menbrnl sting i se 
atribuia rezultatul unci operaţii matriciale. 
Matricile introduse priu. instrucțiunile de iutrarefiezire sau matricea din 
membrul sting al unei instrucțiuni de atribuire, put fi alunute In execuţia inabruc- 
iunii MAT respective, nefiind necesară declarnren lor în isstruețiunea DIM, 
n cazul în care inatricile au fast declarate în prenlabil, intr-o inștrucțiune DIM, 
sau au fost introduso printr-o instrucțiune MAT anterioară, ele pot fi rediinenale 
nate cu respevtarea conditiiler : 
— numărul de dimeasiuni ala tabloulni să Do păstrat (un vector nu poate 
deveni matrice și niei invers), i 
— uumârul de elemente nl mukrieei redimensionate trebnie să un dapă- 
şească număru! de elemente ul matricei inițiale, 
Dimensiunile specificate în instrucțiunile ma.rieiale pet fi constante, 
variabile ssn expresii. 
Exemplu : 


MAT READ A (M--N, N4-1) E 


Citirea matricelor. Citirea matricelor se realizează cu instruefiunile 1 
MAT READ si MAT INPUT. B 


20 MAT READ B (2,3, A (9 


36 DATA 5, 11, —17, 1,2, 3, 1E7, 0, t 


După execuția instrucţiunii 20 matricile A si B ver confine : 
B (1, D5; B (1, 2)—11 ; B (1, 3)——12 
BG, 151; B Men: B( 
A ()—18" ; A (20; 


Matricile A si B puteau D derlarate şi în instrucţiunea DIM car în care, 
la instruejiunea 20, mi mai trebuiau specificate dimensiunile 


10 DIM AO B (2,2) 
20 MAT READ B, A 


D 


instracțiuniie limbajului RASIG 8b 
——————— . —rrumt ebeul DAS a 


Aceleași observaţii sînt valabile şi pentru instrucțiunea MAT INPUT, 
În acest caz, datele sînt citite de la consolă (tastatură) 


16 DIM A (10), B (3,3) 
20 MAT INPUT A (3), B (2, 3) 


Matricile A, B vor fi alocate Ja exeoutia instrucţiunii DIM. Instrucţiunea 
MAT INPUT va redimensiona matricile A şi B şi apoi va citi de la consolă valo- 
rie elementelor (po linii). 

Se abservá că redimeusiouareu satisface cele două cerinţe : 

— păstrarea tipului (vector suu matrice), 

— noul numár de clameule este mai mic decit cel alocat iniţial. 
Observație : instrucțiunea 10 DIM nu era ubsoiut necesară, matricile puteau fi 
alcate în instrucțiunea MAT INPUT. 


Tipărirea matriecior. Peutru tipărirea matricelor se utilizează instrucjiunea | 
MAT PRINT. Matrieile se lipărese linie cu linie, În cadrul unei linii, spatiereg 
lutre eleinente sc face conform sepuratorubui utilizat. în lista de matrici din MAT 
PRINT (separatori pol. îi n,” sau ni”), După tipărirea unei linii a matricei se 
lasă o linie liberă, pentru ca liniile să apară mai clar. Dacă lista din MAY PRINT 
contine mai molte matrici, între liniile unei matrici şi ala următoarei din listă, 
se lasă. dauă linii libere. 


5p END 
instrucțiunea: MAT READ va citi tablourib: A şi B. 
La execuţia instrucţiunii 39 se vor tipări următoarele valori la consolă 


(display) : 


: Mntrieen. A (3, 2) 


Ban 


; Vertorul E (3) va it tipărit ra 
; matrice culoauă B (3, 1) 


*-om-49 9 m 


Elementele mairicei A pot fi tipărite comasat, ducă se foloseste sepure- 
torul ,;". În acest caz, instrucțiunea 39 va fi : 


130 MAT, PRINIQA ; B? 
ZB va fi Lipărit la fel caf mai sus. i 
În cazul cind în MAT PRINT, se specifică dimensiuni pentru un tablou 
dia listă, tabloul va fi mai intti Tedimensionat şi apui tipărit cu noile dimensiuni. 
De exemplu, dacă instrucţiunea 30 de mai sus ar fi fost : 
30 MAT PRINT A (2, 3, BQ) ' 
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atunci s-ar fi tipărit : 


1 
3 
7 ; vectorul B (2) 


3 

Observaţie : La rediraensivunrea unei matrice, trebuie avut în vedere faptul că 
elementele matricei sint. memorate liniar, formînd un vector din coloane puse 
cap la cap- Deci, elementele de pe aueeași poziţie, in matrice nu vor fi mereu 
aceleaşi după redimensionute. De exemplu, matricea ` 


: matricea A (2, 2) 


Me 


1 a 3 
5 6 

A (4,3)— 
aN ? 8 9 
10 n 12 


redimensionată ca A (3, 3) va Ti: 


i 30$ a 
AG So| 4 2 un 
7 ^ 3 


Calculul inversei unei matrice. O matrice pătrată, nesiugalară poate fi 
inversată, De remarcat că, o matrice poate îi inversată în ca însăși, adică, matri- 
cea din membrul sting al instrucţiunii poate fi aceeaşi cu cea din membrul drept. 


Exempli : 10 MAT A—INV (A) este corectă. 
Ducă se doreşte şi câlculul determinantului matricei A (sau numai deler- 
minantul) se va felosi instrucțiunea : 10 MAT A—INV (A), V1. 
La execuția instrucţiunii 19, variabilei V1 i se va atribui valoarea deter- 
minnntului matricei A. 
10 MAT HEAD A (2, 2) 
29 MAT H—INV (A), D 
20 MAT G—A*B 
40 MAT PRINT A, B, C 
50 PRINT. D 
68 DATA 1, 2, , 4 
10 END 


Execuția acestui program va determina tipărirea matricelor ` 


1 2 -2 1 
= =A= 
ac, d E fe See 


1 0 
d 91 | — matrice unitate 


Se va tipări si valoarea determinantului matricei A 
D=det (4) (1*4) — (2*3) - —2 
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Observaţie : Pentru calculul imversei unei matrice, se serie transpusa matricei, 
se înlocuieşte fiecare element cu complementul sau algebric (minorul eu semnul 
corespunzător) împărţit la valoarea delerminantului matricei. Inversa se poate 
calcula mai eficient prin alte metode, 

'Transpusa unei matrice. Transpusa unei matrice. A (M, N) va avea dimensiu- 
nile (N, M). Un vector fiind tratat ca matrice coloană, transpusa sa va fi o matrice 
linie. 

19 MAT INPUT V (10) 
20 MAT A—T'HN (V) 
30 END 

Instructiunea 19 va citi de Ia consolă vectorul V, de 10 elemente. Instruc- 
Ou nea 20 va aloca matricea A (1, 10) și-i va atribui valorile elementelor vecto- 
rului V. Transpusa unei matrice linie este o matrice coloană, 

10 DIM V (10) 
20 MAT INPUT AO, 10) 
30 MAT V—THN (A) 
40 END 
în acest program transpusa mialricei linie A va fi memorată în vectorul V. 
Observaţii : 
1. În iustrucțianile matriceale se poate lucra cu vectori atita timp 
cît operațiile efectuate un necesită transforiuurea vectorilor (tablouri cu o 
dimensiune) în matrice (fablonri cu două dimensiuni). Acest lucru (permiterea 
ntilizării veclarilor în instrucțiunile matriceale) este util în descrierea majori- 
táfii problemelor în care se prelucrează matrici (ex. : sisteme de cenaţii liniare 
— termenii liberi și tecunoscutele sint notati ca vectori B (N), X (N) nu ca 
matrice B (N, 1). X (N. 1)) 
2. O matrice nu poate fi transpusă în ea Însăși. Instrocfiunea : 


16 MAT A=TKN (A) este incorectă. 


Produsul a două matrice. Pentru a putea inmulfi două matrice numărul 
de coloane al primei malriea trebuie să fie egal eu numărul de linii al celei de-a 
dona. 

Se consideră. iustrucfiunea : 

5 MAT A=B 


Dacă B are dimensiunile (P, N), iac C (N. N), matricea A va avea dimen- 
siunile (P, Q): 

În cazul în care matricea A na a fost în prealabil alocată, ca va fi alocată 
la execuţia instrucţiunii 50, cu dimensiunile (P, Q). Dacă matricea A a fost alo- 
cată ca va căpăta dimensiunile (P, Q). 

Observaţie : Matricea rezultat nu poate ligüra ca matrice factor. Deci instruc- 
fiunile : 
19 MAT B=B'G 


sau 
19 MAT C=B*C 


sint incorecte. 
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Adunarea şi scăderea mnatricelor. Pentru à putea adună sau scădea doni 


metrice, ele trebuie să nibă aceleaşi dimensiuni. Aceleași dimensiuni vor fi atri- 
buite gi matricei rezultat. 


într-u instrucțiune. vu se poale executa decit o sinyurà operație, Instruc- 
fiünea : 


19 MAT A—H--C—D, este gresta, 
Matricea din membrul sting al atribuirii, poate figura şi 1n membrul drept- 
316 MAT A—A -Bzesto 'corcctà] 
Înmulțirea unei matrice en un sealan, 
19 MAT A=(espresiejeB: 


Matricea A va primi dimensiunile lui B $1 va avea ca elemente, elementele 
matricei B, tumulţite eu valoarea expresiei. Expresia trebuie să fie inclusă între 
garanteze í 


BErenpla: IPMAT Ac(COS (x 8IN (x en 


Iaiţializarea unei matrice, (icucrarea unei matrice en lonte elementele 
sero se poule realiza cu instrucțiunea : 


[50 MAT A zER (9,2 


Dacă matricea A a fost alocată înuinte de execuția instrucţiunii 59 va orimi 
dimensiunile (3, 2), dacă nu, va fi alucată cu aceleași dimensinui. 


In cazul în care se urmăreşte iniția lizarea matricei, fără alterarea dimen- 
siunilor, nu ge var mai specii::a dimensiunile, în instrucţiunea MAT 


10 DIM A (5,5) 
; 
e MAT Ae ZER 
Pentru tablouri cu o singurüzdimensiune se poate utiliza : 
1$ MAT V=ZER (10) ` 


Pentru a genera o matrice cu lonte elementele 1, se pot folasi, de exempl, 
Instrucţiunile : 


05 MAT B=CON (2, 2 
se 
70 MAT BesCON 


Instrucţiunea 70 va fi utilizată în cazu? în care B. este alocat in prealabil, 


Pentru a genera o matrice i vitate (ru unu pe dia:.onala principală şi zero 
în rest) sc va folosi funcția (DR. Exemplu : 


19 MAT A-—IDN (9,3) 


Dacăt matricea nu este pătrată (sam nu se specifică dimensiuni egale tn 
Iren IDN), prin diago v: lă principală se va înțelege, dingnnala ce pleacă din 


Instraeţiunile limbajului BASIC bi 


elemeatulfcu poziţia (1, 1) şi: merge diagonal pină lu epuizarea numărului de 
linii san de; coloane. 
De exemplu : 
10 MAT Ae UR (2,3) 


và penera: 


| 1 8 U | 
A ss 
Geif? 1 9 

9.4.14. Instruefíuni de preluerare grafică, Soluţiile multor probleme coo- 
stau din şiruri lungi de sumere a căror interpretare este destul de dificilă. Repro- 
teaturca sub formi grafică a acestor şiruri de valori numerice facilitează aprecis- 
rea cantitativă şi calitativit a soluțiilor. ` 

Problemele în care se utilizează facilitățile grafice impun reprezentarea 
grafică a unor valori uumerice (tablouri, valori ale nuer funcţii ete.) sau reali- 
zarea unor desene, hărţi cle. 
À In primul caz utilizatorul este interesat de formu grafi nini şi de incadrarea 
lui pe ecranul dispozilivului de afisure- 1n cel de-al doileu caz, pentru, utilizator 
va fi importantă specificarea explicită a scării de reprezentare, pentru a ofectaa, 
eventual, müsurülori pe desene etc. 

jua din soluţiile de realizare a graficelor folosind limbajul BASIC poate 

censta in scrierea unor subrutine în limbaj de asamblare, care utilizează un anu- 
mit display, şi utilizarea lor, în BASIC, cu ajutorul instracţiuniii CALL. Această 
soluție este puţin flexibilă (nu este independentă do tipul periferieului grafic) 
Şi destul de greoaie pentru un începător. l 

De acera an fost introduse instrucțiuni speciale pentru prelucrări grafice- 

Instrucţiunea MOVE. Formatul instrucţiunii : 

nr. linie MOVE X, V - 


unde: X, Y pol fi constante, variabile sau expresii. 
lastrucţiunea MOVE este folosită pentru a pazițiena spotul în punctul 
de coordonate (X, Y). De menționat că instrucțiunea MOVE execută numai 
poziţionarea in punctul de coordonate (X, Y) nu marchează punctul respectiv. 
Tustrueţiunea DRAW, Formatul instrucţiunii este : 
nr. linie DRAW X, Y 
undc ` X, Y pot fi constante, variabile sau expresii. 
Instrucţiunea DRAW este folosită pentru a trage o linie Intre;punetol in 


sare se află spotul la întilnirea instrucţiunii şi punctul de coordonata X, Y spe- 
cifieate 1n instrucțiune. 


aa 
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De exemplu dacă se dorește reprezentarea datelor conținute in verlo- 
rul V (N) se poute folosi secvența 


100 MOVE 1, V (1) 
110 FOR J—1TO N 
120 DRAW J, V (JJ. 
130 NEXT J 


Instruefiunea 100 execută o poziţionare in punctul de coordonate (1, V (15), 
apoi în ciclul FOR se unesc priu linii elementele vectorului V. Se observă cå 
instrucțiunile MOVE şi DRAW sînt suficiente pentru a fice reprezentări grafice. 

Kustruegiunile WINDOW şi VIEWPORT., Coordonatele X, Y specificate 
în iustructiunile MOVE şi DRAW stat exprimate în unitățile de niăsură în care 
sint exprimate mărimile de reprezentat (metri, kg, voltl gie A. ` 

Acest sister de coordonate definește „spațiul utilizatorului” sau spațiul 
virtual. Spaţiul virtual este limitat practic de precizia aritineticil masinii (+ 10e). 
Acest „spaţiu utilizator“ va fi reprezentat la o anumită scară pe suprafața dìs- 
play-ului: 

După cium s-a arătat. la începutul paragrafului, în problemele de repre- 
zentare grafică a unor date, utilizatorul preferă.s definească limitele spaţiului 
In care sînt cuprinse valorile de prezentat şi să necepte scara şi originea implicit 
determinate, fâră a mai specifica o scară de reprezentare şi o origine. 

Iustrucţiunea prin care utilizatorul specifica limitele „spațiului utilizalur" 
în care sînt cuprinse datele de reprezentat oste : 

nr. linie WINDOW A, B, C, D 


unde : A, B, C, D sint variabile, constaute sau expresii care reprezintă limitele 
spaţiului utilizator, în ordinea : 


A = limita stingă © = limita inferioară 
B s limita dreuptă D = limita superioară 


Cele patru limite definesc. un spaţiu dreptunghiular. Orice punct de conr- 
donate (X, Y) pentru care : 


Ax XB 


Csi 


EI 


va fi reprezentat grafic. Punctele care cad în afara dreptunghiului nu var avea 
imagine pe suprafaţa display-ului. Din linia trasă cu instrucțiunile ` 

10 MOVE X1, Y1 

20 DRAW X32, Y2 
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va fi reprezentată numai porfiuaca interioară dreptunghiului (ferestrei), definite 
mai sus, de limitele A, B, C, D. 
Observatie : De remarcat că poate fi luat implicit spaţiul utilizator maxim posi- 
bil (impus de aritmetică) 

16 WINDOW —1ió t5, 104 18, —10 1 18, 10 4 18 


. În acest cáz toate valorile numerice cu care se poăte lucra într-un program 
sînt reprezentate grafii. Dezavantajul constă în aceea că scara implicată este 
extrem de mare, şi un domeniu de valori destul de mare (2 109) se va reprezenta 
printr-un siugur punct (pe un displuy cu latura de 1000 puncte). 

laturile ferestrei (dreptunghiului) declarate în. instrucţiunea WINDOW 
trebuie să De cil mai apropiate de domeniul de valori de reprezentat, pentru ca 
graficul obţinut să: fie cit mai fiu. 

Pină acum 8-a considerat că spațiul utilizator, definit prin instrucțiunea 
WINDOW, va [i reprezentat. pe toütá suprafaţa display-ului, Iu unele aplicații 
se va dori scrieres unor comentarii alături de pralic sau realizarea mai'multor 
grafice pe ucecași suprafață. 

Pentru a descrie poctinuca diu suprafaţă display-ului pe caro va fi realizat 
praticul (va fi proicetat spațiul utilizator) se foloseşte instrucțiunea : 

my. Mute VIEWPORT A, B, C, D 


unde ; A, B, C, D sint variabile, constante sau expresii şi reprezintă limitele 
zonei din suprafaja display-ului. în acecagi ordine ea pentru WINDOW : stingă, 
drenptà, inferioară. superioară. 

Spre deosehire de WINDOW unităţile în care se exprimă limitele A, B, C, D 
siut. unitati fizice, : 

Alegerea unității [izice în care să se exprime limitele A, 3, C, D trebuie să 
satisfacă cerințele de independență faţă de tipul perifericului grafic, (unele 
display-uri au supruluța pătrată, altele drepLunghtülare ete). Independenţa 
de tipul perifericului, asigură ca un program scris pentru un anumit display să se 
poată folosi şi pentru alte tipuri de echipamente de aiișare. 

Unitatea în care se exprimă limitele A, B, C, D s-u ales ca fiind un propeat 
din latura pătratului cel raai mare, care poale îi îuseris în suprafața display-ului. 
Aczastu se va numi unitate grafică (UG). Originea suprafeţei display-ului se con- 
sideră în colțul din stînga jos. În acesle condiții instruefíunea : 

10 VIEWPORT 0, 100, 0, 100 g 


va specifica dimensiunile celui mai mare pătrat înscris în suprafața display-ului 
(dacă suprafața displăy-ului este pătrată, va reprezenta. întreaga suprafață). 
Aceaslă instrucțiune este executată „implicit de sistem. 
De asemenea implicit este executată $i instrucţiunea : 
WINDOW p, 100, 0, 100 
Aceste două instrucțiuni realizează o corespondență unu la unu între 
unitățile utilizator (pe orizontală şi pe verticală) şi unitatea grafíc (UG). 
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Cu aceste iniţializări implicite un cere va apăreu nedistorsionat, deoareceg 
pe ambele axe de cour donate sc folosesc aceleaşi unităţi de măsură, iar suprafața 
graficului este pătrată (ace easi scarii po ambele axe). 

Programul urmátor va trasa! un ceret pe orice display ` 

100 MOVE 85, 50 130 NEXT J 
116 FOR J=0TO 2*P1 STEP PU 140 END 
320 DRAW 35*COS (J)--50, S5*S1N (J)4-50 

Cercul vajfevea cérdrol fu punctul dé coo: v onite (EU, $0), iar raza va [i 25, 

Se obsivă cà, în program, nu a fust necesită utilizarea instruefiunilar 
WINDOW say VIEWPOR'T. Nu este necesară euncagterea particuluritàfilor 
display-ului. Este suficient să se știe că orice display are o supralaţă de cel puțin 
100/109 unităţi (UG). Evident, peniru reprezentări de dute care nu variază 
intre Q şi 160 se impune utilizarea iustrucțiunii WINDOW (altfel se reprezintă 
dear poi finneg diu grafic cuprirsà «n frrcostra Q,. 160, 0. 186). Dacă se va dari 
ca reprezenfarca graficului să sc facă minai pe o porțiune din Suprafaja display- 
ului, va trebui utilizută instrucţiunea VIEWPORT, De pildă. pentru coljul dia 
dreapta sus se va Io) insirbejiunea : ; 

210 VIEWPORT 25/309, 79, 109 

Instruefiunile prezentate mal sus: MOVE, UHAW, WINDOW, VIEW- 
PORT formează setul minim de inslivepinni grafice, cu vjuternl cărura se poate 
rezolva orive prehlemü de reprezentare grafică! Sînt pres ăzule,! de ascmenea, 
instrucfiuni care înlesnesc. utilizarea subrutinelor pentru realizarea graficelor, 
manipularea figuritor (rotații, Uraustafii) și instructiuui care realizcazh indepesr 
denja progra melor față de tipul perifer icului;prafio. 

Instruejiunile IUMOVE şi BDRAW. Pm satul instrucțiunilor ` 

nr. linie HMOVE X, Yg 
nf. linie E2RAW X, Y 
unde: X, Y pot fi constante, vuriabile sau expresii. 

Instrucţiunile RMOVE şi RBRAW ze dcoscbese de MOVE şi DRAW prin 
faptul că cocrderatele X, Y nu Sint 1 Spo Late la; originea sistemului, ci la poziția 
spetului (punctului grafic), la momentul execuţiei instrucţiunii. Aceste instruc- 
Dan sint util- în scrierea subrulinelor eue generează diverse fipuri. Figurile 

respective vor putea fi desenate en orice loc, pe suprăfaţa display-ului, prin uti- 
liz arca instrucţiunii MOVE, înuinte de apelul rutinei care penerează figura. 
Astfel, se realizează iranslafia figurilor. 


'rsiruüejiunea. SCALE, În unele aplicaţii, realizarea de hărţi, diagrame, 
desene cte., este utilă indicarea explicită a scării de reprezeutare dorite. 
Formatul instrucţiunii folosite în acest caz esie : 


nr. linje SCALE £1, 52 
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unde: S1, S2 sint constante, variabile sau expresii care reprezintă factorii de 
scară pe orizontală și pe verticală. Factorul de scară indică numărul unităților 
utilizator reprezentate pe o unitate grafică 


S= unifäți utliizator 
unități grafice (UG) " 


Observaţie : În cazul în care se doreşte efectuarea de miăsnrători pe gratie, stili- 
zatorul va Lrebui să ştie ft? milimetri (de exemplu) reprezintă o nnitafe grafică 
(UG) pentru perifericul respectiv (se reamintește cii IOC reprezietă a suta parle 
din latura pătratului maxim inscriptibil în suprafața display-ului). 

Originea sistemului da coordonate se consideră În punctul 1n care se află 
spotul (punotol grafic) la execuţiă instrucţiunii SCALE. Pentru aceasta se va 
folosi; eventual, instrucțiunea MOVE inaintea insfruefiunii SCALE. Punctul 
specificat. sa origine va fi reprezentat pe grafie In enijul dia stinga jos. 

Se poate remarca faptul eit instrucțiunea WINDOW este cehivalentă cu 
SCALE, avînd in plus specificarea ariginzi. Coordonatele originii «or Ina locul 
parumetritor A, C din iustrnctiunca. WINDOW, iar factorii dis seară vor deter- 
mina limitele E ai D din WINDOW. 


Instrnetiunea ROTATE, Formatul instrucţiunii ROTATE este următerul > 
nr. lie ROTATE U 


unde : TJ este o vonstantá, variabilă suu expresie, 

Instrucţiunea ROTATE are efect numai asupra inatrueţiunilor RMOVE 
şi RDRAW, reafizind rotația cu unshiul U a vectorilor generaji cu RIXRAW 
sau a peziționării realizate en RMOVE. ` 

Dacă instruejiunea. ROTATE esta utilizată. înainte de apelul unei rntine 
care generează o figură cu ajutornl instritetinnilor RHMOVE şi RDRAW, figura 
generali va upărea rotità cu nnghiul specificul, (în radiani). Rotaţia figurii res- 
pective vn fi realizată față de punetul în cate s-a început: generarea fignrii, punc- 
tul unde se află spotul la începutul stovenţei de proarai (ritinei) ve desenează 
figura. Instrucţiunile MOVE şi DRAW nu sînt afectale de ROTATE, deoarece 
csordonalele ubanlute, specificate în aceste instrucțiuni trebuie să rămiuă wal- 
terate. pentru a se puten exezata pozijtunávi în punctele dorite fnainle de pene- 
rarea unor figuri cu HMOVE si RDRAW. Astfel, sa permite utilizarea simnl- 
faná şi independentă a trnuslației şi ratalici figurilor. 

Exemplu : [irmălorul progiam va trasa un pătrat cu latura de 10 unitați (Se 
consideră inițiatizările implicite deci nu se vor folosi WINDOW şi VIEWPORT) 


56 MOVE 6,0 120 RDRAW —19, 0 
190 RDRAW 10, 8 139 RDRAW 6, —160 
116 RDRAW 9, 19 140 END 


Pătratul va fi trasat fnceptnd din origine. Instrucţiunea 80 pozitioneacá 
spotul în originea spaţiului utilizator care pentru inițitlizările implicite, coincide 
cu originea suprafeței graficy (colțul din stinga jos). 

: Pătratul poate fi micgorat, mărit sau Lransformat tu dreptunghi cu ajuto 
rul instrucţiunii SCALE S1, $2. Iară Di Sisi påtratul va fi micşorat sau 
mărit, dar laturile vor rămîne egale între cle. Pentru $ 1 Sien! pâtratul va fi 
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trasat. neschimbat fat de cel din exemplul de mai sus. În cazul în care Slg52 
laturile trasate pe display nu vor mai fi egale, iar pătratul va fi reprezentat ca 
dreptunghi. _ 

Următorul program va desena pătratul de două ori mai mare decit cel 
trasat de programul precedent. 


10 MOVE 0, 6 119 RDRAW 0, 10 
20 SCALE 1/2, 1/2 129 RDRAW —19, 0 
30 COSUE 100 190 RDRAW 9, —10 
49 STOP 140 RETURN 

100 HDBAW 16, 0 159 END 


Se obscrvà că secvenţa de program cure desena pálratul a fost seris ca 
subrutină. Dacă se doregle ca pălralul să fie desenul. în alt loe pe suprafața 
display-ului se va schimba instrucțiunea 10. De exemplu, puntud : 


10 MOVE bg, -50 


pătratul va [i trasat (în sens trigonometric) începînd din punctul de 
coordonate (50, 56). 


Observatie : Latura pătratului va aveu tot 10 unităţi utilizator (s-a folosit aceruşi 
secvenţă de instrucțiuni pentru generares pătratului), însă datorită indivürii 
scării de 1/2. dimensiunea laturii pătratului desenat va fi 20 unităţi grafice (UG), 
deci dublă fată de lulura pătratului trasat de prorramul precedent. 

Pătratul generat. de subrutinu care începe cu instrucțiunea 169 poale fi 
trasat îucepîud din puuetul de coordonate (50, 50) si rotit cu unghiul PI/4 cu 
ajutorul programului : 


10 MOVA 59, 58 3$ GOSUB 100 
20 ROTATE PIA 40 STOP 


Tu cazul în care se doreşte ca pătratul să fie micşorat şi rotit, In sens invers 
trigonometric, $e va pateu folosi programul : 
10 MOVE 20, 2 40 GOSL 100 
20 SCALE 2, 2 50 STOP 
39 BOTATI: —Pi/3 


Pătratul va £i trasat începînd din puuelul de coordonate (20, 30), micgurat 
la jumătate (latura de SUG) şi rotit în sens orar cu unghiul PI/3. 


La instrucțiunea 100 începe aceeași subrutină de generare a pătratului 
ea şi în programele precedente. 
Instruetinnea INIT. Formatul instrucţiunii esie următorul : 
nr. Unie INIT [P] 
Execuția instrucţiunii INIT constă in sterueren ecranulnmi display-ului 
$i efectuarea inilializárilor grafice implicite, anume : 
WINDOW Ø, 100, 0, 190 
şi 
VIEWPORT 0, 100, 9, 199 
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Deci instrucțiunile grafice SCALE, WINDOW, VIEWPORT si ROTATE 
executate înainte de INTT îşi pierd valabilitatea. 


Dacă parametrul P este prezent, atunci display-ul trece în inod pagină, 
altfel rămîne in mod defilare. 
[ustruegiunea GSINPUT, Formatul instruefiunii GSINPUT este următurul: 
nt, linie GSINPUT Vt, V3 
undc: Vl. V2 sint variabile. 


Instructiunea. GSINPUT este utilizată peniru a realiza independenfa 
totală față de.tipul perifericului grafic. Exccu|ia instrucţiunii coastă In atribui- 
rea variabilelor V1, V2.2 dimensiunilor exprimate $n unităţi grafice (UG) ale 
suprafeţei display-ului. Du exemplu, un display poate avea suprafața dreptun- 
ghiulará cu latura orizontulă mai mare san cu cea verticală mai mare (fig. 9.3 a. b). 


el 


Du 


SOL 


Fig. 93. Stabilirea unităţilor grafice pe suprafața enra- 
nalul de afişare: 8) Vi=13 UG; V2-—100 UG; b) Vi= 
7-100 UG ; V2=150UG. 


Executind instrucţiunea GSINPUT Vi. V2 pentru display-ul dim fi- 
gnra.9.3. a, variabilele V1. V2 vor primi valorile V1= 130; V2—100, iar pentru 
display-ul din figura 8.5 b, V1==100, V2—150. 

Utiliztad variabilele VI. V2 In instrucţiunea VIEWPORT se vor obține 
programe care utilizează Intreaga suprafaţă a display-ului, indiferent de forma ei : 

100 GSINPUT A, B 
110 VIEWPORT f, A, 0, R 

Instrucţiunile PLOT si UNPLUOT. Instrucţiunile PLOT și UNPLOT impre- 
ună cu caraelerele speciale (semigiatice), utilizabile in instrucțiunea PRINT, 
oferă facilități semigrüfico limbajului BASIC. Formatul insirueţiunilar este: 

nr, linie PLOT X, Y 
si 
nr. linie UNPLOT X, Y 


uned ` X, Y pot D constante, variabile sau expresii. 
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Execuţia instrucțiunilor constă în a aprinde sau stinge pătrățelul de caur- 
donate X, Y de pe suprafața display-ului. Suprafaţa display-ului este formată 
din 61x64 pătrălele, un pătrăţei conținiad 42c4:16 puncte grafice. Originea 
suprafeţei, (pătrăţelui de coardonnte Q, Ø) se consideră în coltu? din stinga, jos 
al suprafeței display-ului. Prin urmare, valorile expresiilor X gi Y vor [i eu prinse 
între 0 şi 63. Următorul program, trasează două linii, una orizontală, cralaltá 
verticală, cars ge intersectează în mijlocul ecrunutui 


10 INIT 40 PLOT I, 32 
20 FOR 1=0 TO 65 $0 NEXT T 
30 PLOT 29, E 69 END 


9.5. Mesajele de creare ale interpretorului BASIC 


In timpul introrlucesii programulti, instrucţiunile (liniile ee Incep cu un 
unimăr) m sinl analizate sintactic, ci sint depuse în memorie, în ordinea su mere 
lor de linie. € linie care nu. incope eu un numår va fi inierprelatà de sistern 
drept o comandă. Dacă ea nu reprezintă o cenowa validă (de exemplu este o 
instrücfiune fără nuuiăr dr Unie) sistemal va tipări mesajnl : WHAT Y, iudir tnd 
faptul că ultima linis introdusă este incarectă. Linfa va trebui &i fie reintrodusă 
corect. 

Erurite depistate în limpnl excențivi programului stat tipărite la ransulă 
sub forma: 


ERROR XX IN LINE YYYY 
imde : 
— XX reprezintă codul erorii 
— YYYY reprezintă numárul liniei în cara a fast depistată eroarea 
Semnificațiile codurllor du eroare (XX) pasihile, sint. date în continusre : 


————————M——— 
f'odal emell Semnitienfia 


1 — programu nu se termină eu instrucțiunile END san STOP 
2 — tip de instmcţiunta nereeunescut. (cuvint cheie Licorect! 
53 — existi instructiunt sursă după Instrictiunmea END 
4 — muni laici destinatie este incorect (în instrucțiunile IF, GOTO, GOSH, 
UN) 
5 — Bumârui lel] destinulid cste inexistent (în instmețiuniie 1f^ GOTA, 
GOSUH, ON) 
$ -- caracter ilegal 
7 - instrucţiune neterminată s 
8 .— expresie invarectă ; 
„9 — eroare la conversia Mu virgulă nobilă 
19 — ntilizare incorectă a functiilor GET zau PUT 
n — tentativă de r1edimensionare (priu WIM) a wmi tablou 
12 — tablou utilizat înainte de a fl definit (stocat) 
13 — argumentul funetiilor SIN, COS sau TAN prea mare (165 
14 — relatin îmcarectă in instrucțiuuea IF 


45 — depăşirea ativelor in evaluntor — expresie pres complientá 
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10 — săpa în ridicarea la putere (0 la puterea $ enn numâr negativ la potere 
renl 

17 — instrucţiane FOR utilizată fără instrucțiunea NEXT corespunzăteara 
(buclă FOR netnchisă) i 

18 — Snstracțiane NEXT utilizată fără Jnstrnejiunea FOR corespunzătoare 

19 — depăgire stivă FOR (peste 3 icht cuprinsa. on) intr-aktm) 

20 — indice mai mare de 254 sau egal cu 0 

2 — se dorește citirea mal multor constante decit au fost definite în Instrucihe- 
nlle DATA 

w — depăşirea valorilor declarate nle indicilor 

2 — mdical din număr negativ 

24 — ogaritm din număr negotiv 

25 — dimensiuni necompatibile petru produs de matrici 

KI — matricea din membrii ing al egalității nu poate apârea în roembrwi 

" drept (pentru transpusă sau produs de matrici) 

2? — matrice singulară — nw poate D inversată: 

28 — redimensionare incorectă — molle dimensiuni depășene pe cele magiese 

20 — prin redituensionaré nu ponte fi schimbat numărul de dimensiuni a! upal 
tablou ^"^ ` : 

46 — matricea nit aste pntrată — nu poste fi Iriversatil 

CH — wntriclle nn au aceleaşi dimensiuni (pentra: sumă sau diferență) 

34 — subrutina 1n limbaj deasamblare e mumărul dorit nu a fost găsită in tabela 
de subratine . f ] 

23 E — pattonetriUincorecti în lustrucţiune de prelucrare grafică (VIEWPORT, 


WINDOW sau SCALE) 


Fio In faza de introducere a programului, fie fu timpul execuției sule poate 
apărea la consolă mesajul MEMORY FULL, indiefnd faptul cá nu mai există 
memorie disponibilă, de alocat pentru variabile sau de stocat uoi linii de pro- 
Kram. În acest moment se poate. introduce o singură. cifră (de la consolă) care 
va indica acţiunea care va avea loe în continuare. 


Număr introdus Semnitieaţia 

LJ RUN  — execută programul din memoris 

1 BAVE  — copiază programul din memorie pe casetă 
3 LIST — — listează progtamul din mernorie 

3 BOR — șterge programul din memorie 
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Capitolul 10. | Microcalculatorul aMIC în matematicile 
elementare şi statistică 


Dar, mni intii, o vedere de ansamblu a programării „personale“ pe aMIC. 

Utilizarea echipamentelor de calcul într-o serie de activităţi economico- 
sociule a fost mult timp frinàtà de regimul de lucru Specific palerii de calcul 
centralizate : prelucrarea lucrărilor pe loturi, Timpul de răspuns, adică durată 
între momentul predării spre:execuţie-a unci lucrări și mamenlul primirii rezul- 
tatului prelucrării, poate fi de ordinul artelor sau chiar zilelor, func]ie de o serie 
de factori specifici exploatării pe loturi là centrele de culeul. Valoarea mare a 
timpului de răspuns implică două inconveniente majore : 

a) apariția de discontinuitâți mari în activitatea de elaborare, testare yi 
depanare a programelor, avind va rezultat o eficic nj& svăzntă a activității de 
programari. 

b) imposibilitatea utilizării puterii de calcul în aetivitàti care solicită o 
colaborare permanentă om-calculator pe durata execuției programelor- 

Regimul de lucru eu acces direct al utilizatorilor la echiparhentul de calcul, 
Tic că este vorba de acces locul sau de lu distanţă, rezolvă In cea măi mare parte 
incóuvenientele de mai sus. insi această rezolvare nu este în beneficiul unui 
numir mare de utilizatori, E ii obstucal în ràspibdirea acestui mod de 
lucru Îl constituie costul ridicat al unui sistem de calcul interactiv şi numărul 
Jimitat de terminale ce pot fi gestionate simultan în cadrul unui asemenea sistem. 

Apariția mierocaleulatoarclor, considerate ca fiind sisteme total inier- 
active, permite diseminarea puterii de calcul pentru orice Up de uplieaţii, prin 
avantajele specilice pe care le posedă : pref de cost scăzut, programare în limbaje 
conversationale de nivel înalt, posibilitatea conectürii prin linii de teletransmisie 
la sisteme de calcul de capacitate medie-mare, interfaţă simplă cu operatorul 
uman ctc. 

Microcaleulatorul personal aM H pune la dispoziția utilizatorilor săi o 
serie de facilităţi destinate implementării ell. mai simple a puterii de calcul 
într-un domeniu vast de aplicaţii. 

Interfața cu operatarul este concepulă pe două niveluri : nivelul monitor 
și nivelul BASIC. Ambele au făcut obiectul unei tratări detaliate în capitolele 
precedente. Relivfám doar faptul că această ierarhizare, neobiguuità la micro- 
culeulatoarele personale, permite dezvoltarea de aplicalii în două direcţii: 
cea a domeniilor specializate, necesitind elaborarea de programe în limbaj de 
asamblare, si cea a domeniilor de larg interes, scrierea aplicațiilor fácindu-se in 
limbajul BASIC-uMIC, al căror obiect 11 constituia prezentul capitol. 
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Limbajul BASIC implementat pe microtalculutorul aMIC este simplu 
şi ușor de învăţat, fiind accesibil unei categorii largi de utilizatori, chiar nespe- 
cialigti în informatică, Crearea, modificarea şi testarea programelor se desfăşoură 
rapid, datorită modului de lucru cunversaţional al interpretorului BASIL : 
numărul de erori posibile semnalate la execuţia programelor este relativ redus, 
depanarea programelor neridicind astfel probleme deosebite. Corectarea liniilor 
de program eronale se poate executa imediat, programul fiind disponibil pentru 
o nâuă rulare, ciclul modificare-testace fiind Foarte scurt, Acest mod de lueru, 
yen „încearcă să vezi ce se întîmplă“ nu este cel mai indicat, dar prezintă nete 
avantaje pentru nespecialişti, eliminind o bună parte din bariera psihologică 
ridicată de utilizarea unui instrument nou de lucru în cadrul activităţii clasice: 
a acestora, 

Domeniile de utilizare includ cu preponderență calcule: matematice com- 
plexe, prelucrării de tip gestiune economică cu un volum mic-mediu de date, apli- 
eat tehnica-ştiinţifice, învăţămînt, aplicații grafice etc. Toate. exemplele date 
în coatiunare au mai mult un caracter demonstrativ, didactic, încercindu-se 
acoperirea unui nuinár cil mai mare de domenii diferite. 

Pe măsură ce programarea în BASIC este Însuşilă, utilizatorul îşi poate 
defini propriile sale aplicaţii plecind de la exemplele demonstrative ; partea cea 
mai dilicilă o constituie abordarea algoritmiek a aplicației ce se doreşte a fi 
transpusă pe aMIC. Scopul acestui capitol este şi acela de a demansira că nn nu- 
măr surpriuzălor de activități pot fi abordate prin prisma transpunerii lor pe 
microcalculatur, și că aceasta .este practie la îndemna luturor. 


10.1. Rezolvarea ecuaţiei de gradul II : 


AXI-.-BX-FCo0, unde A, B, € sînt. numerereale. RE (X), IM (X) sint 
partea reală şi partea imaginară ale rădăcinilor complexe conjugate. 
Programul se bazeaz& pe organigrama dată în figura 10.1 


30 ERR: otoieähe sr 
B. TRAY Det këiuegrt COEFICIGHTI C e Wehr 
35 MAT AE es Cu a, RE NUNERB REALS 
3 JATRODUCETI COEFtCEBNTIM 
Ge ETA Zëierta NU B$7T8 0B ep, 2 3 4 
Eom | Eater tii turum 
»-0 THEN BO RA C E 
55 PWLNT"ECUAT)A ARE RABACINI COMPLEXE» EE SE 
a Al DAN REALAS, 0742 
“PORTEA IBACINAÉA*,-SQRIESN A 
72 60 19 95 zoo IS MS 
90 PRIMT"RAUACLNE REALES 
43 Zagon) 
[m ; 
96 PRIRYC-BS2/U, C-B-2 57U 
Zë ENI 


REZOLUARHA OCUATIEL 


REZOLVAREA ECUATISI Aa eOK rând 
Aänzixhtefeg fU A.B.C MUNERE PREALB 
CU 4,8,C NUNBEB REALE. tWTRODUCOT] COERTCIENHTUI 1 
4 t3. 3: -43 


K Wee SOEFJCIBNTII( 


E [n RADACLEE REALE 
ECUATIA KU asta DO 02.3 1.44991 


-2.55684 , — 
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STARI 
r 
(aee f 
L 


FIRE. GEN 


[ RÉOÁCINI COMPLE 


( ag 
Fig. 10.1. Organigrama rezolvării ecuaţiei de gradul IT. 


nM LUI rM 
PKIRT*NanzeiXoC € 

GEINT: INTRODUCETI coer rc renvi v: 
Meu? a.0,c ip 


19 Hrac INEN 79 
TRINL*ECUATLA NU Ada: 
Pv statie IH Re 

ee TO | 

AEN Wu DVC 
PRIMTTON CNAQUL 2° 

ap 170 170 

DEDE 


10.2. Rezolvarea inecuaftiei 76 do2«4 


LELES DE AZA 


ASIA DS LC E ea iai no 


SR uay 


fsz020255888595s7 


Programul se bazează pc IO sti we 


organigrama din figura 10.2. 140 POINT Rr aut sau 


150 PRINT Y,** x AN 


$4 $R RETOLVAR 

RISI Bet cd 

EE CORPICESNHNS 
WI 70-9 

Em ate 

fOtUTIE M X 


a ————————— ———————— 


Eezolvarea unui sistem (Cramer) de 5 ecuaţii cu 5 necunoscute 101 


` 


Fig. 10.2. Organigrama rezolv&rit inecuaţiei 
AX'HBX-&C <$. 


10.3. Rezolvarea unui sistem (Cramer) de 5 ecuaţii 
cu 5 necunoscute 


Progrurmul rezolvă un sistem de forma : 
La, HH 
unde ; 
C este matrice de 3x5 elemente 
X este vecior coloană de 5 elernente 
D este vector coloană de 5 elemente. 


Elementele matricilor C şi D nu stat solicitate prin dialog, ele sint pre- 


fixaie în program la liniile 169, 170 şi 180. Dacă se doresc alte valori, se vor 
modifica aceste linii. 


102 Microcateulatorui. aMIC în matemaücile etemeniare și statistică. 


Rezultatul se afișează sub forma unui vector eu 5 elemente. 


PEINT * REZOLVAREA UNUL SISTEN Q8 üCuafti " 
DIN C19,5), Där, Bt, 9), PS3. gu), X05) 
MAT £820 C.D 

PRIHT * XATRICHA COBPICISRTILOR * 
HAT PRINT C 

PRINT * TERRSNEI LIBBRE * 

HAT PRINT D 

HAT ET1NVACY 

99 NAT Xapey 

100 PRINT ° UBCTORUL 6OLUTIE * 

110 HAT PRINT X 


LEELIIITO 


V60 DATA 11,2;0.1,2,0,4,2,0, 3,9, 8,7, 1,0 
170 DATA 4,0,4.10,1,2,$, 1.3.13 v 
180 DATA $1,13.19,20,92 

190 stor j 

300 UND 


10.4. Afişarea unui sir finit de numere prime 


Programul generează şi afişează cîte un număr prim, pornind de la mul- 
tinea numerelor prime determinate anterior. Mulțimea de pornire exte 2,3. 

Programul se bazedzá pe următoarele ipoteze : 

1) orice numár prim este un numár impar 

2) avind mulțimea primelor n numere prime, 


(P, Pa, ..., Pa) numărul K, K > pa, va fi număr prim dacă nu este 
divizibil cu numerele prime Pi < K. 


intrucit prin BASIC se poate rezerva: un masiv.cu dimensiunea maximă 
de 254, se pot refine maximam: 254 numere prime: Din acest motiv afişarea 
se opreşte la tipărirea numărului prim KP, adică. la 16132=—=2.601-769, 


10 PRINT * LIGTARÉ WUMERB PRIME * 
29 DIR Pra3s 

KRAH? 

49 PERI 

59 PRIHT Piţi 

89 PRINT P127 


Ke5 
Ba 1-3 
99 152 A 
100 IF PC3)*2 > K' THEN 180. 
110 EF ENTOUE1JD0 15470 € 3). THEN L60 
190 Aeiet 
130 IF J«e234 THEM 100 
146 stop 
190 REM * K NU BSTE Pain * 
350 X*Ne2 
170 O0TO SQ B . ' 
160 ROR * K ESTE bam: ] 
190.19. 12228. THEN 219 
ESO A 
210 PRINT 4 
220 Raped ` 
2% tsi 
1^0 6610.90 
250 END 


Afişarea unui şir finit de numere prime 103 


10.5. Verificarea dacă un număr dat este sau nu prim 


Programul solicită prin dialog introducerea numărului de verificat. În 
baza ipotezelor de la programul anterior se verifică dacă numărul este prim sau 
m" si sé afișează rezultatul (fig. 10.3). 


Numărul se compară cu mulțimea numerelor prime P, < INT (/X)-- 1. 
Din acelaşi motiv ca la programul anterior (inasiv cm mărime maximă 254) 
numărul dat la verificare trebuie să fie: 


X « 2-601 .769 


LO PRINT * VA GBA „DACA UN HUNAR 8 PRIN * 
70 PRINT * QAFE 
30 INPUT x 
40 IF X«O THEM 40 
20 f [OA Sep THEN 89 
ED PRINT’ NUNAN EGUATiV sáu REAL Li 
79 5970 30 
Lo yin P4224) 
GIE 
KA Porra 
WI? pewiesotit in 
V 


130 ia 
(4b fin © KORNARARO CU HUNERSLO PAING * 
1970 732 

ie0 IF P14)722X. THEN. 230 

170. IF IKTIRZELJI) SKPPC II THEN. 199 

180 dn 

199 Kak 

200 IF kx maeu 150 

KA KAN x: Hy U PRIN’ 

220 5 


236 H uk 
2 le THEN 280 


260 iot t 
270 Gora 
450 retur x * ESTE PRIM * 
299 stor 
300. ENO 


Fig. 10.3. Organigrama verificürii dacă un număr este sau nu prim, 


Fig. 104. Organigrama da- 
| MeNT(SORIN).T) — | compunerii unei momăr da 


INTP) = ACPU) gi 


hi 


Deecompunerea unui ngmăr in factori primi 106 


10.6. Descompunerea unui număr în factori primi 


Programul solicită prin dialog numáru) de descompus în factori primi. 
Se aplică ipotezele de la 10.4 şi 10.5 pen ru s obține şirul de numere priine- 
pină la «N, N fiind numărul dat, Se contorizează apoi de cite ori se cuprinde: 
fiecare număr prim în numărul dat. 


Considerind descompunerea de forma : 
N aq "i Hai Rive 
se afişează: 


qi tk a PRIN?  DESCOMPUREREA IÙ FACTORI riet - 
10 DIN Pt224), 0420) ,GL209 - 
q ^k i15 PRINT * DATI KUMARUL " 
2 | Sa 20 (eur N 
ECO OTTO UHT 
. 20 PIL: 
à 35 Pia 
37? vot 
d 46 aus 
dä POR tou Ton 
"o Isa 
He 1 Ka S6 Lë Pr 320 TIN 90 
40 IF FWTtW/PLJD)) APPIA) THEN 80 


49 jeI*1 

IP I0054 THEN 53 
?$ STOP K 
00 Anaea 


goto 30 
*O (f 1:234 "RR too 
TP? — PtibeA 
100 AnA»? 
105 Bat 
110. fan » OBGCONPUNARUA * 
LU Kei 
120 dai 
123 1»0 D 
120. B4P LV) 
195 («nd 
LAO. EP. CINTECOG):0 YNEN. (00 
143 (R 120 TIUN 155 
139 sti) 


BO tP 100 THON 190 
195 Dcjyt-g 

190 leloj 

199 Ne : 
200 1F ZO TURR 133 
GEO ; 

210 BE ^ TIPARIREA * 
219 FIR Lei T6 J 

220 PRINT Eitiseraëtii) 
225 PRINT 


MEXT I 
235 PRINT * CORFINUATI LOAmLI * 
240 (Nur D 

245 IP Det TURA 293 

239.310? 

239.PRINT * DATI MUNARUL * 

260 LRPUT Q 

265 IF GH THEN 123 

370 Meu. 

273 VM 

900 Ne[NTCSOR(N M11 i 

295 REN * A» OLTIN NÜHAE UNCIPICAT - 
290. oora 33 

300 Cup 
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10.7. Determinarea celui mai mare divizor comun 


Programul solicită prin dialog cele două numere întregi şi afişează cel 
anai marc divizor comun al lor. 
e 


a PRINT ^ CEL HAL MARE Dip Qon . 
19 PRINT + BATE CELE Do KURS 

i$ INPUT A 

2b WF Ant Zen s0 

25 E AXO (REN 40 

20 


10.8. Simplificarea unei fracții 


Programul solicită prin dialog numărătorul şi monitorul fractiei, Se afi- 
şează un vector cu toate valorile cu care se ponte simplifica fraetia, inclusiv 
fracția simplificată. 


PRINT * SIFPLIFICAREA FRACTLELOR * 
PRINT © UATE HUMARATORUL 


NFUT A 

PRINT * QAFE NUMITORUL * 
UiRUT 9 

BIN $199? 

Leg 


H 

10 

i$ 

?79 

25 

Ka 

35 

49 br. 

an IF DA THEM 93 

Sp IF («0 HAR ae 
$3 PAAT * sa rM SIMPLIFICA- CH; 
m HAT PRINT Şi 

A8 PRINT * eicht SEMPLIFICATA: *; 
70 PRINT A;*/*; 
29 stop 

BO PRINT * NU S5 POATE SIMPLIFICA * 
83 PRINT * PUNCTIA DATA. °; 

?0 ES 29 


105 pene 

sto 0379 43 
10% Eza/a 
120 IF 1NTIB)8E THEM 130 
t2" (0T9 103 
130 ane 
KO 

1489 lels 
LKE) 
159 0879 40 
135 END 


93. D a 
105 T Ier TOR 115 


10.9. Calculul aproximativ al factorialului unui număr 


Programul solicită prin dialog numărul n si determină factorialul său 
pe baza formulei: 


n la dien (nje)* 


Simplificarea unci fracţii a Simptificsréa wife 2102 


Formulă este indicată pentim valori mari ale. lui n, deoarece nu există 
inmulfiri süccisive. mär? consumatoare de timp. 


S PRINT * FACIORIAL * 
10 PRINT * DATI Wunnt * 
15 INPUT N 
IO IP Map THEN 25 
2S PRINT * NUMAR FEST SAV. 2680 e 9 
39 stor 
28 ExISORI29 Pun 2I N^RD IN 
Wo PRINT mol 9 “Fr 
S. OCH 
50 SEN 


10.10. Permutări, aranjamente, combinări 


Prugrarnul solicită mai tutti Lipul operatiei, si corespunzător acesteia, 
parametrii necesari. Caleulele se execută după formilele: 
a) permutări de n elemente ; 
Paan! 

b) cumbinări de n elemente luate cite r: 

sa E 

"n nirt 
e) araujumente de n elemente Inmate cite r: 


10 PRINT "rr WERHUTARE A N ELEHENTE 
970 PRINT * he AEANIERENTE A R DLENRACE DIN d 
359 PRINT Ce LONYINARE A N ELEHEHTE LUATE "ITE u 


JO, (aaen: THEN Lët 

20 Ire" IBEN LOG 

20 VOD «9 

122 PRINT * INTREZUCETI Pp W 
112 INPUT N 

tIS Tas xch: fbHR :70 

129 PRINT * IKTRGZUTETI Pe N 
139 INPUT f 

199 [F R« H TPEN * TO 

120 PRINT R> M 

162 96t? 120 

129 2 »« 

362 66*93 gc 

i199 tÉAV ^P? THEN 345 

2008 *4 

210 2 a N-2 

220 COUI 466 

23306 eg 

242 (än: (REN ZAO 


"235 PRINT "N';cs*R - SIHA 
$90 PRIN? * CQNTINUATI ID/NI > 
3092 &a*-2NEETS 

3fo ilat- * THEN 300 

3209 [LFA*-*"D^ "EEN LO 

330 STCP 

JNA PRINT wt: rn 

243 ücro 29 

400 à z 1 

€10 ERR Xa T3 2 

426 A = Aux 

AJA WbxT- v 

44) PETÜRM 

450 zn 
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Subprogramul de in linia 400 calculează exact valoarea factorului Z I. 
Be apelează cu valorile Z egale cu n, n—r, r de care avem nevoie în formulele 
anterioare. 


10.11. Ordogarea unui şir de numere 


Programul solicită mai inti cîte numere se ordonează, apoi şirul de numere 
efective. Se execută ordonarea in ordine crescătoare sau descrescătoare, afistnd 
şirul ordonat. 


Pair. e oesonatos UNUI. gya "OE NUDA T] 
PAINT. * IB oënten CROSCATOARE /bbsCtPsCATOAMM. - 
e éi M RITO VURAEB. INTRODUCETI 


DIN AUD 
PRANT ^ DATI SIRUL OP MONORE * 

BAT INPUT A 

PRINT © L9 ORDINE CRESCATOARD (UASI 
INPUT n 

POR lei TD Rei 

POR Jelet TO n 

A Dei TRER 90 

ER citat) TRON 100 

GDTQ B 

[P ACD. meng 

Wat) 


LCE ZU TEL CES 


FOR RoJ Ta Te) STP -3 
Ar Kishtkai? 


10.12. Calculul sumei color mai mari numere 
dintr-un şir de numere date 


PRINT ^ ADUNAREA A x NYARE p 

PRINT © AVIND VALOARQA CHA a MARS 
PRINT " CITE MUNGRD tATÁQDUCOTI "e 
INPUY 8 

BA aa) 

Hi S Mm NUNERELS 

WAT 1NPU 

PRINT * Hi NUMERE SP ADUAA 


3583522885 


IN 
Se Gë ed * ADUNA TOATE WUNÉRELU Programul solicită prin dia- 


133 Din wan log numărul total de clemente 


G HELM " și valorile lor, apoi solicită va- 
138 Ipara wo 210 oarea m. A 

190 DAI Se piişoază suma celor m 
20 aUe numere. 

JIO NEXT J 

220 mr I 


X 20 
240 FOR fa TO N 

T am+bite 

260 KERT 

330 PREET * IPMA COLOR *;8;- MUREA! 

an piis * CU VALOAREA CEA pi Pr Wi 


FE 
909 p" 


Ordonarea unui șir de numere” 199 


10.13, Calculul valorii medii ponderate 
a unei variabile aleatoare 


Se efectuează calculul valorii medii ponderate după formula > 


Se introduc prin dintog numărul total de măsurăteri, valorüle fiecărei 
măsurători şi ponderile cu care se elevtuaază calculul. 


Se afișează valoarea V. 


a PALM? * VALOAREA MED18 KATANGYICA CU PONDERG "* 
10 PRINT * OAPI MUMAROL DE KàgOKRaTORl * 


INPUT N 
DIR MHL XIN) , . 
35 PRINT * DATI UALOBILE RezcRaTORILOR * 
BAT 16? 
PRINT * DATI POWDERILÉ * 
s MT mut x 
. 


geg 

Se RER * CALCULUL * 

bO FOR tel TO R 

4$ nenea) 

70 Baber? 

73 Mi) 

90 PRINT " V + *:A/G 
STOP 


10.14. Calculul valorii medii şi abaterii standard 
a unei variabile aleatoare 


Lëe determină jvaloarea medie şi abaterea standard după formulele» 


1 ` 


Sr L XV. 


[CT] 


Se introduc prin dialog numürul total de măsurători si valorila lor. Ss 
afişează valoarea medie si abaterea standard determinată. 


110 


Parut * 
PRINT e 
Thr e 
INPUT y 
PRINT * Dai 
MAT LNPU* n 
S ` 


Microcaleulatorul aMIC în materialicile oleméntare și statistică, 


TALCULOL v S 
DS VRLOPLU MEDII ei A ognceng) 
CITE MASUPATORI ATI EFECTUAT © 

r „VALORILE MASURATORILOA - 

HD 


FOR Xvi Tia 
KK (UD 


ÉOR Xrti YU N 
S-$*(Boco-vy2 
WUXT X 


? VALDAREA MEDIE: «iy 
* ADAFEROA DTANRARO:, zu 


110 END 


10.15. Tabela valorilor unci funcții definită pe intervale 


Programul solicită prin dialog trei intervala ce vor alcătui 


domeniul 


de definiţie, de forma : 


Funcţia este definiti 
— pe intervalul 
-— pe intervalul 
— pe intervalul 


LA, B]. (B, C), IC, D] 
astfel : 
IA, B] în linia 35 
(B, €) în linia 45 
[C, D] în linia 55 
PRINT | FUNCTIA VARIABILA IN CWEBRVALE « 
AA 


PRINT * BATE INTERVAL 
LEPUF A,8.C.h ALOLE A; 


i FDR FE TC 0 ST8P 0. ` 
"de EN 1X -A3 SGN -R> GWIN -i ei 
HR Goro Elei WW 
eg , 


Lë SRRIC-a tot 3 
INT *XA*ix:* Aen 
NEXT X LIMIT ELIT d 


STOP 
Definiţiile pot fi modificate în cadrul programului. Linia 20 defineşte 


pasul cu care se efeetueazá tamelarea valorilor funcţiei, Ca rezultat, se afişează 
valorile funcţiei şi ale argumentului pe intervalele dato. 


10.16. Calculul volumului butoiului 


Se determină volumul butoiului pe baza formulei aproximative ` 


np z 
væ - (22s) L. 


Calcnlul valorii medii și abaterii unei variabilo aleatoare OK: 


unde : 

D este diametrul secţiunii prin vrană 

d este diametrul fundului butoiului 

T» este înălţimea butoiului. 

Se solicită prin dialog circumferința la vrană sí la fund şi înălţimea, ap. 
şind ca rezultat volumul hutoiului. 


10 PRINT * VELUNUL BUTDIULUJ * 
20 Ure DATI CIRCUNPRRI NIA LA VRAMA * 


30 INPUFf ei. 

AQ FIRE * DATE CTRCUMPERI KTA La PUND * 
$0 tkfPür ca 

^9 PRINT * DATI [MALTEMEA * 

O INPUT L 

80 Dieci 

90 DASCRPL 

190 Veflgtot rQeD3+022/0)-a 

ALO PRINT * VOLUMUL MUTOLULOI. *;U 
120 Erop 

13% BED 


10.17. Calculul volumului şi suprafeţei torului 


Se determină vulumul și suprafața torului pe baza formulelor ` 
V= Rr? 
A —4z?Rr 


unde: 
R este raza torului 
r este raza secţiunii torului 
Se solicită prin dialog. valorile Ft si r, şi se afișează suprufafa şi volumul: 
determinate. 


19 PRIN? * YOLURUL $1 BPRANATA YORULUT * 
20. DACHT * DATI RASA TORULUL * 
3960 ircr R3 e 

49 FEIT * DALI RAZA SECTIUMLI * 
50  INPÜT k2 

6A Viami 

Ju vasdana 

EO Eaëtr zeit? 

99 waFeD2j4 

190 PRINT © SUPRAFATA: "jf 

11% PRINT * peu eo 

120 STO 

*30 ENG 


10.18. Calculul perimetrului şi suprafeţei unui triunghi 


Programul permite calenlurea perimelrulai şi arici unui triunghi în două. 
cazuri : fie prin introducerea lungimilor celor trei laturi, fie prin introducerea 
lungimii unei laturi şi a mărimii celor două unghiari ădiucente. Se afigeazü 
perimelrul 5i suprafuja determinată. 


4312 Mierocalculatorul aMIC In matematicile elementare si statistică. 


10 PRINT * CALCULUL PORLRUTEULUI 81 * 10 PRIRT e INTR-UE TRTUNONL E eru - 
VS PRINT ^ SUPRARRTR TRIUNGHIULUI e 20 PRINT * dE vata ne za 
20 PRINTY * PE CUNOSC LUNUIKCLE LATURILOR * 30 PRINT ° UUDHIURILĂ P$ pore carei . 
m PRINT e NI LUNCINILU LATURELOR * 40 PRINT e DATI LONOIMÉA Lergort e 
ge Intur 2.Y KI 
J0 Paže? 40 TENES H DATI UNQGNIURJULE * 
a ùP: FO  IMPW 
70 sS-10R(Q»fQ-X)270-T1900- 22) +4 eur D 
UO PRINT * PERIHETAUL: *;P V360- Heli 
:99 PRINT * SUPRAPATA: HI $06 X^TASCRLUSP 1710027 3) t'UnP1/10D9 
196 STOP 110 feTNS(RLUMF1/160)/5 BC URP T7100: 
vie EBO 120 Pexarez 
130 Q6P/2 


340: SnSDRLTA(0-E)s40-Y)etQ-2)3 
156 PRIRT * LATURILU: PATE 
$60 PRINT * OROHIURILB: *10,U,U 
$70 FRIRT * PORIANTRUL: *,P 
100 FRtHT * SUPRAFATA, *;$ 

t90 319? 

200 GAP 


10.19. Calculul celui de-al N-lea număr din şirul 
lui Fibonacci, 
S-a plecat de la relația de recurentă: 
F(N)—F (N—1)-++E(N—2), (Y) N > 3 
F()-1; F(2)-2. an 
Programul se bazează pe organigrama dată în figura 10.5. 
See v6 PRINT PRONRANUL TIPARESTE" 
m ) E GE, 


PRINT*NS 
Di INPUT N 


MI 


baz 
POAN K=O fO N-3 


19 ET Y 
130 PRINTF "NM" pm, 
34e EN) 


Fig. 10.5. Organigrama calcu- 
lului celui de-al N-1oa nutre 
din şirul lui FibenaccL 


10.20. Calculul aproximativ al rădăcinii 
Së, n2, X59 


CP i à ER ^o PRSNTUCAL COLUL KASETA 
S-a folosit relația de recurenţă ` jel. PANT E Ee El 
Lë PRINT AUMAR Fo22T1v x" 
, 1 x Pix 
Za pao (n—1) Ted (K> a e Wien THEM AS 
18 PRINTERGA" 


4^ NA 20 
da PRIM" 


X, dach x» 1, LENT IAM 
z= AEE 
ari kd 
l, dacă x g1. 19 PRINTYENOARE” 
70 GOTU eo: 
Programul se bazează pe organi- &» cor 129 A ESE o. 
grama dată. în figura 10.6, $3 QC THEN 102 
Loir d M Ld aa M 
Procesul de calcul se oprește cînd Vas Vid M09 
p f T Ba e $35 ZerlëicLnetet ik: NS 3 P 7N 
este satisfăcută relația ; db Pee Ant popi TEN L28 
LS zi ` 
p D 120 GOTO 109 
| fe | < e LS PRINT"RADICALUL pm "f." PéTCs", T 
130 


Fig. 10.6. Organigrama calculului aproximativ al rădărinii 
XzZ, n22, Zap, 
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Copitolul 11. | Microcalculatorul aMIC în economie 
şi tehnică 


11.1. Antecalculaţia de pret pentru un produs 


Programul efectuează calculul prețului de producţie yi livrare a uon 
produs, fn baza formulei ; 

Pret producție si livraze = (cost compiet prad.)-+-(heneltela) 

Cost complet prod.-s(cost. uzină) d (cheltuluii Z desfacere) 


Bencticiu= 15% (cust. complet producție). 


a PRINT * ANIEGALCULATIU DO PROF * Cost  uzină= (cost secţia) -+ (cheltulelt 
lo PRT H DS PRINS 9| hATERCaLg * geuerale ale întreprinderii), 
20 (RE A Chelluieli AK (e . 
2 WW * ROTRIOUTIL DIRECTO * b ipn phas Se : el eure 
» Ren An. d Fă uleli eris m ^i eund ee 
= ^ 
9 Poet e qu^ Ka Aus LÉI P ta 
= REN * CALCUL n Cost 'secfle = (cust — juaterli prime) 
Ki EE LN V Ri (retribuli  direvte)-- (impo- 
Co Kéi SÉ quit. Fun Lenaig MN 5. Vere ded 
* unctionare utilaje) el 
D Zeil GL mu ur. *,U;^ ta e tuleli generale sectiet. 
Sei Kä lees LA ER : , 1 A R 
ere ET Se solicită prin dialog variabilele : 
100 REN + CAST SECTIE + cost materii prime si Valoarea retri- 
140 PRIMI * COST SESTE; *:5,* LB] * buţiilor direcle. Se afigeuzà toti para- 
419 fü * ECHELT.GEN. INTREPR. 
420 E » (sal2/7L00 metrii intermediari enutueraţi mai sus, 
1235 PRINT * CHELT.OGRM, THIR “gi” Lël * 
430 R$ * COST pgina o S iar lu sfirşit, preţul final de producţie 
ap e Bet a! 
at PRINT E COST ugeet, SUR)" LET > şi livrare. Procentajele din cadrul calen- 
rer PPM a lelor unor parametri constituie un caz 
t55 PRINT ` CHELT.)ESEACDRO. *;0:* EI ^ particular, fiecare  utilizator putind 
tata Sp ` DOAI COMPLOT PROB, ` modifica programo) couforin ceriuţelor 
165 bs șef n wt d 
PN PRIRI * CUST ConPLUT PRED.: *;Pj" LEL * H 
129 REN i rener icto [E i d propr. 
a D pă ÎN cau A Ai aci aia 
108 Paint © DEMUPICIU 19%, "MIT Lei - Proguunur este util fa cazul în 
jos Bi deeg care se doreşte uflarea rapidă a variației 
s. " iue a » 
209 PRINT Peer DjA e BA io Rr preţului de producţie in funcție de va- 
HEB io MUT PROBUS? DATI sec riatia costului materiilor prime ce intr 
ES Ife sien i în componența produsului şi a valorii 


de Bu retribufillor necesare la exceuturea sa. 


Calculul primei acordate după grupa de vechime HEI 


11.2. Calculul primei acordate după grupa de vechime 


Se consideră nrmătourele grupe: de vechime : 


T. 5 ani IV. 15—20 ani 
11. 5—10 ani V.» 20 ani 


IH. 10—15 ani 


„ Programul salicitá prin dialog totalul sumei ee se va acrirda drept, prime 
pentru fiecare grupă de vechime. Se determină suma ce revin Fiecinii angajat. 
conform cu grupă din care face parte, si afișează lista tuturor angajaților, În- 
soë de retribntia tarifará si prima ucordată. 


sii e 
IJ in c 2 
20 PRIMI ^o Gëtt op, 
23 PRII o (ënn 12 
^ MA Poza, uto s 
47 PRINT * INTELS Gaar re A: 
4: FHIN" ^ ALONG TREST ORINA 

TUS BAT UNPGf e 

GO ARINI * INTAR MR oa anfaani * 


* 20 me 


Qo BAT To Sp 
"2 POR PF» p fr M 
423 Bran mira» 
119 PERI V 

120 K e SWTeieine) 
EG AREMT 
An RIAN v 


SIE CH E 
Léi EIR et 72 
PE PO prttuir)v 


199 NEXT | 

199 fh57975 

209 FOR o tren 
D READ NA Däi 


Ta RAD 
Wc UNT ia] 
AUS o 
PRINT H1;5;Pra.) 
Rrxt | 
3270P 
REM *NüHt , ver 
EATA ° IINAYSEL 
RATA *'29»ESÉE KO? 
HI ATA t... 


6 . MEFBISU';R ~ 
Kéi 


Lon gnp 
Datele referitoare la angajați se intraduc prin DATA conform cu Jiniile 
de la sfîrșitul programului, Pieeare linie va conţine numete angajatului, vechi- 
mea sa în muncă yi retribntia Larifară, 


11.3. Determinarea bencficiului pentru o structură de 
fabricaţie pe produse dată 


Progrumul poate D utilizat. ca mijloc de determinare a celei mai avanta- 
joase structuri de fabricaţie pe grupe de produse. Se solicită prin dialog urmă- 
toarele date : 
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— numărul şi numele produselor de fabricație ; 

— pumărul şi numele materialelor (materiilor prime) necesare fabricării 
tuturor produselor ; 

— peniru fiecare produs, cantitatea de materii prime ce intră în fabri- 
caţia sa ; 

— pentru ficeare materie primă, cantitatea existentă in stoc ; 

— pentru fiecare produs, beneficiul estimat ; 

— strietura de fabricaţie (cite bucăţi se vor fabrica din fiecare prodns). 

Se verifică msi iutii dacă în baza datelor introduse, se poate realiza struc- 
tura de fabricație cerută (nedepășirea stocului de maleri) prime), iar dacă 
rezultatul verificării este pozitiv, se afişează beneficiul tota] pentru această 
structură, Sc poate repeta întregul proces, modifieind doar structura de fabri- 
cutie, pînă la determinarea une! strueluri optimizate (fig. 11.1). 


Structură de produse —X(M) 


ON) = necesar matenole pt. 
structua dota 


Bereteiu «S Xi) « Cli) 


Fig. 11.3. Organigrama programului pentru determinarea beneficiului 
pentru o structură de fabricație pe produse date. 


Datele despre produse sí juateriale rămîn nemodificate pe pureursul 
iteraţiilor, introduccrea lor fiind necesară nomai în faza inițiată, de creare a 
tabelelor de date din program. Odată salvat pe casetă cu -aveste dute introduse, 
programul poate fi reluat oricind direct de la dialogul de stabilire a structurii 
de fabricaţie. | 

Variabilele M, N conţin numürul de produse respectiv do materiale. Matri- 
tile utilizate „conțin următnarele date: 

D3(M) — denumirile produselor 
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P$ (N) — deunmirile materialelor 

A(M, N) — cite unităţi din materialul N necesită produsi M 
B (N) — slacul de materiale existente 

C (M) — beneficiul estimat pe produse 

Ciclul de verificare începe de la linia 30%): 


10 EETERMINAREBQÜEHEOITCIUNUT * 
DI UR FUNCTIE DU 0 $TRUTTURM * 
Y DE FAaRICATIE ALEAGA " 

20 (NT&20.NR.TGTAL PRODUSE * 


$2 WR.TOTal, RATERIALE * 
oo IRPUT RN 

60 CLE Gh, Nt XUDBORI,CON S. TIPP) 
So IM Se. 10) 

Za SIN Ps. 100 

79 PRINT * INIKCÉ.DUNUMIM PROSUSD * 
VÒ PAR 320 TO Hf 

$90 INPUT «ili 

van SEXT 1 

ALA PRINT * LKTROO.DEHUMIAL MATERIALE * 
(20 PAR T « t TON 

130 INPUT Fil 


350 WeXI l 

345 PRINT * Kal CONGUM MAT/P350, * 
156 FOR [ c : TO N 

140 POR. Isi TO Y 


172 PRINT "OMM WR.DUC.DJH  *jPvr) 
180 IKPUT ACI, ` 

170 MEXT ) 

200 MEXT 1 

205 PRINT * IMTAO3. STIE NAF * 

210 FOR J * 1 fO N 

220 PRINT * OI *;P94324* CLYD U73 AVETI * 
2*0 INPUT dry! 

7-40 NEXT J 

245 PâINT * IBTROD SONAP.CGTLAAT 

299 POR | « | TO M 

2«0 PRINT D$![);* CE BEMEP.ATALIARAZA * 
270 OPE it 

200 WEXT t 

200 PRINT * 1u*a20.8tRUCCURA DB FAMA. * 
295 PRIRF * HR. PRODUSE PE TIPURI * 
KI FOR 3 33 9 4 

AIO PRENT D94T):^ PRODUS * 

329 tNPUT Sin 

$30 Nix f 

340 MAT D= IER 

280 FOR T ^ 1 TOH 

300 PAR J > L TON 

3?0 pet? e Dităent lia.) 

380 MXT J 


420 PP J «» 0 THORA 
430 tB 3119 ca Rite [^ 469 
440 P» 1 
450 PRINT * OTRUCTORA DATA WU 36 POATO r 
"ams PuimT * ABILITA * 
440 NEXT I 
470 1» 3 = 6 TI SRO : 
Ka Pt © ALCA STROCIURA?: Lët) * 
I8PUT 6 
300 [F & 1 WON 290 
EH STOP 
3290 
FID POR I = 1 TON 
349 3 e GEET 
559 SEXT 
EZ? Kaf * aawer (C UL att: NU 
sva adra wao- 
s80 dud 


GIT IIT 
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Fig, 112. Organigrama programului pentru determi- 
narea drumului minim ue două noduri ale unui 
Er at. 


Determinarea drumului minim între două noduri ale unui grat dat 119 


11,4. Determinarea drumului minim între două noduri 


ale unui graf dat 


Programul consideră uu graf ca fiind definit prin noduri si arce, fiecare 
aod fiind etichetat eu un număr întreg pozitiv, Se solicită prin dialog : 


— numărul total de nuduri = N 
— numărul total de arce — E 


— eticheta (numărul) nodului de pornire (primul nod din drumul de 


minimizat) = S 


— eticheta (numărul) nodului do sosire (ultimul nod din drum) = M 


— pentru fiecare ure : 
— nodul iniţial 
— nadul final 
— lungimea sa. 


Din datele introduse ge comple- 
tează masivul A (N, 4) îu cure A (L, 2):= 
=1 000 000 considerat. un timp foarte 
mare respectiv A (S, 2) 0 peutru nodul 
de pornire. Masivul B (E. 3) se com- 
pletează vu numărul nodurilor pe arce 
și cu timpii necesari pareurgerii arcelor. 
Coneelorul A (Ta, 4) va contine legătura 
către liniile din masivul B. 

În A (L, 2) se totalizează timpii 
necesari parcurgerii prafului, conform 
sehemei din figura 11.2. 

$e afişează sub forma unui sir de 
etichete (numere) drumul minim Între 


cele douá noduri specificate. Afişarea. 


se face în ordinea inversă parcurgerii 
sale (de la nadul de destinație la nodul 
de pornire). 


Programul poate (i utilizat într-o 


serie de domenii uude este necesară: 


optimizarea distanțelor parcurse, pla- 
nificarea activilátitor de producţie etc. 
Se va considera lungimea unui arc drept 
măsură pentru distante de parcurs, 
tinpi necesari in efectnaren unor ope- 
rat tehnologice elc. 


10° PRENT = DRuMi, ('RITIC * 

TO PRM? * Nune? UU MCOIMT * 

36 JWPUT M 

40 PRINT * NUMAR CE NRCE * 

o TMPUT E 

60 PLR AIN, A», Bet. 

70 PRINT * oe, A9 MOUbLHL VE PIRNIPE 


80 (PUT S 
YO PRAW? ^ HR,- SCOUC HD UE 530106 
Lea INPUT M 


r$ f08 0 9 i) T0 8 

129 atita 

130 6019,21 > To5$405 

340 à(0,31 7 9 

189 ei. An e D 

Ian NEYT | 

165 PEA * TIAPVL CE (WIRE ër 
I9 MSN * 0 

169 PRINT * ROD I , M20 2 Lunupt ^ 
190 FOR P : | TD E 

AV) tWnY 0,8.8 

IA GPi 9 D 

320 PIRI? -R 

329 BEM * INLANTUIPF FA3LOU A 5I B 
490 Wisi? e nips 

SEIL AT 2 P 


„259 NERT P 


269 12 5 
2*0 3 = nti. 4s 

280 JF J : D TREN 390 

29a* . 0 R 

369 1 - IZ OG 

DAL 2 bi), 2! 

320 IF A'L, 2! 4 1 THEN 240 

739 MIL, 13 ri 

346 AIL, 23 9 T 

KG LA 

360 J T Bt 

320 [P J «» f tum XO 
KLORE 

390 f e ter 

400 [E I (z M THEN 449 

ago Lei 

490 K ^ Kei 

440.[E M > 3 THEN 170 

ap E AC(1,1) « O THEN 396 

anD 0070 270 

ALO PETNT "äi ër: (IN afla ORUNFL "e 
44 PRINT * CEL MAL SCURT ÈSTE: * 
vn PRINT = PRIM RODURIZE: 7,3: 
300 X « acu, 

S10 fF X. 4.0 THER 590 

$20 PRINT e, "ix, 

ES X e atx, 35 

S40 govo so 

$30 svor 

LE 
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11.5. Gestiunea unui stoc de magazie de tehnică dentară 


Se consideră că există o magazie care primesle materiale specifice deutare, 
şi le distribuie la mesele de lucru. 

Fiecare masă de lucru elaborează o anumită lucrare, pentru care se cou- 
sumă o anumită cantitate de materiale, 

Fiecărei lucrări îi este asociat an barem de consunuri utilizat pentru 
verificarea încadrării in normele stabilite. 

Programul oferă. următoarele opțiuni de lucru: 

— punerea la 2i à maguziei centrale (primire eliberare 1naleriale) ; 

— vizualizarea stocului existent în magazia centrală; 

— punerea la zi a stocului de materiale la mesele de meru, cu verificarea 
consumului de materiale ; 

— vizualizarea stocului de materiale existent lu mesele de lucru. 


LO PRINT ^ KAGAZIA DƏ TEINECA OBNTARA * 

20 PRINT * 1~ SE FING LA IL MAGAZIA' CENTRALA e 
30 PRINT * 29 UL2UAL2ZORE BTOC MAGATIG CENTRALA * 
40 PRINT " J> vIZUALIZARE STOC LA Reng e 

$0 PRINT " 4* SE TENE Là ZT 2TOCUL LA NESE ^ 

95 PRINT * a: STOP e 

$0 PRI(RT *. DATI NUHARUL PROLUCAARII * 

20 tWePÜF X 


30 0M X GOTO 90,400, 780, UBO, 1240 
90 PRINT " SE TINE LA Zi PADAZIA CHNTRALA - 
100 PRENT * PRIHITI SAU RLTGERNTU MAT. (Feb) ^ 
110 tNPUT as 

120 (F A% = “E° THAR 450 

120 LP AS c» “pe THEN 90 

140 PRIMT * DATI MATERIALUL ȘI CANTITATEA * 
150 ANPUT 0s4T03,ă 

IA 

170 POR 1 a 3 T0 8 

190 (F B3 <> Nest THON 220 

190 iti e Qcfiex 


230 LF Y €» 0 (MON 340 

240 PRINT * HATERIAL HDU? (0/M) > 

280 jHPUT A9 1 

260 1F AJ = *D* THRN. 260 

220 C010 340 d 

273 REM ^ 30 ADRUGA UN MATERIAL NDOU * 

990 n » Wei 

290 DA) o X 

900 schi 9 9e 

MO hof t = 3 T0 X 

2990 PRINT * CORBUM SPECIRIC PRODUS. PSL); 
IZS PLAT * DIR MATERIAL "rue 

33e IMPUT PICA» 

322 NEXT T 

340 PRINT * HAE Fiat RATERCAL (9/N9 = 
330 INPUT og 

360 SF A* e *D* TRÉN 140 

270 PRINT * Bart VIZUALTZARE 5TOC änt = 
280 INPUT A€* 

390 IF At c» "är AN 10 

400 PEINT * VIZUALIZARE STOC MAGALIE CENTRALA 
MiO FOR 1 * L TON 

490 PRINT NSII,” *.00) 

420 NƏXT 1 

440 caza 10 

430 PEINT ^ GE ELLMBKGAZA MATERIAL LA NESE = 
Ah Ira HAL: hubaRWMI, Rusa = 

420 thPur s 

496 IF S «2 0 1 499 

496 tF S > © (HAR 460 

300 PRIAT * DATI MATERIALUL SI CAKTITALEA * 
$19 INPUT BStTÀ5,X 

"CQ Y «0 

9560 DOR C = à TO M 

340 [F Be «€» 3611) INAN 320 
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vi 
ten 
970 NEXT I 
560 [P Y €» O IWER na d 

$90 PRINT © WD EXISTA MATERIALUL IN MAGAZIE * 
600 goro ën 

410 Oty? e QIY)-A . 

420 IF OtY) »«0 THON Aug: PO 

$30 PRINT * NU BxtSTa CANT ITAIDA IR MALADIE * 
640 OCT) e gyae 

636 GOTO de 

960 RBN * SE ABUNA LA RTOCUL MESE! e 

670 AS dh v MSN Aen. 

690 PRINT * RAC ELIMERATI LA MASA *;5;" 6044) * 
YO INPUT ae 

700 IF Me * *D* THEN 520 

FLO PRINT * BLLBORATI LA ALTA MATA? D/M? * 

720 INPUT A$ 

PU 19 AS s *0* CHON 44O 

740 PRIHY * VRETI VIZUALIZANG $7TOC MASA tru 
730 IWPUT gé 

FAQ IF A9 è *D* THEN 780 

77A GATO 20 

VGA PRINT © VLIVAGIRARG STOG Wann - 

TUQ PRIME * DAT: NUMARUL NESE! * 

899 INPUT S 

ALQ IF S ce O THEN 290: 

9360 IP S > Q men 290 

am FOR [ +3 TO M 

940 PRINT * ASID. *. ACID 

esa NEXT ! : : 
$40 PRINT * MAI vi2UALIZATI] STOC IA NASA VOJNO * 
879 GOTO 750 d 

960 PRINT * SE DAU REALIZARE LA MESE * 

9*0 PRINT — DATI MURARUL MESU) * 

900 meu? S 

910 TF S te O, THEM. B90 

am IF 5 >. 0 THER 890 

$25 WAT Ocfl a IER ; 
$20 RI ` DAT! PRODUSUL 31 HR,FROB.RGALITATE * 
940 INPUT asiTo), x 

KSC Y 

*60 FOR I - 1 10 

"TO IP Bs c» Poil: THEN. wo 


10,0 WERT I 

1920 IP Y <> Q FRON 1130 

LOJO PALAT ° PRODUS HOUT scht: 
1240 INPUT. AY 


LOFO fett? » 85 n 

10GO PRINS " UATI CORSUMURILE SeHCIPICO PROD.NOU * 
1090 FÜR f « 1 TO R 

1190 PRINT 89102; 
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Ba 


1156 IAPUT Pin, to 
4120 yx t 

1t30 PRINT © Wat DAT] REALIZARE? ven) 

via tufur AS 

1150 IFAS a *D* THON 129 

1155 MAT RARI ZER 

3169 PRINT * DATI CONSUM MATURIALE LA Kéier 
TINO INPUT BITOJ, X 

uvo Yao 

1209 FOR | » 1 TON 

1210 tF Bn c^ WIL) THEN 1270 

1230 € = 0 a 

1990 Ip ACPI) CX IRON 1262 

1340 Y 52 - 


IF Y = 2 HRN 1949 

IF * = 3 THEN 1370 

PRINT * MATERIAL paren D 

Dare 134 

"PRINT * $TOC 1HSUFLCLONT ~ 

PRINT * MA? DATI CONSCA? (DéN) * 
INPUT Ab 

17 At e äs "MEN 1170 

FOR | * 1 10 N 

BOLD) 2 MIS, EIRA 

NEXT. 1 f 

AAT D » ZIR 

FOR) » 1 TO 

FOR f a 1 TO Kk 

Dido > Häss CaoPC 4.1) 

mEXr A 

FEI 1 

Ter 

FER i e 1 TAN 

IF Deti co CII) TREN 2500 

PRINT * G-A DEPASIT CANSUMUL LA *;h$ 
IADS PRINT * MATERIAL CU *;CA11-0012 
wu Y cd 

INC NEXT f 

äng IR Y « t THEN 10 

Lë PRINT * UATI INCAURAT IR CORSUM SPULIFIC - 
R50 SIT 10 ^ 
1540 S790 d ` 

1600 REM * CREÁRF riseg stoc e . 
telo REM * E CRunaiA LA MAXIM 10) MATERIALE * 
Aet% RRN * ZO PRODUSE Zi 9 MOBE * 

1620 PIR Ott025. 04291, (1002. 4 1001 

3630 Dip Ars, 160», 
i820 DIN P3120; 302,H$1100, Loi | 

M56 REM * SE INTRUUUC 5 MATERIALR 2 PRODUSE * 
1433 REM * RESTUL GH (viel PRIN PROGRAM * 
LE N -5 

1670 M ea 

1680 Q «5 

1690 MAT O « ZER. 

1700 P9 V? * “PLAN CNCL.* 


*s060By.0C ^ 1 


1710 AT 
1790 Kiil e *zEAPRA* 
1730 Wfi2) = *MA$B AnaL.e 
1/46 0434 = “ALIAJ IROZ” 
1730 N414» = “arpsa 
(749 MAT A o 108 

i 1770 HAT ERT 


1780 pan - CowsvuvarLe SPECIRILA * 
1290 FOR 1 « 1 10 

1000 FOR I = ) TO A 

3010 READ PIL.JH 

1620 NBAT 4 g 
1530 NEXT 1 

1029 REM * COASUR SPECIRIC DUFA DAMDH - 
1842 DAFA $,30,34, 600,60 

1830 DATA 15,0,0,200,40 

3960 pre 10 

2000 tub 


Gestiunea unui stoc de mazazie de tehnică dentară 123 


Programul poate fi utilizat ca model de referință pentru. gestiunea stocu- 
rilor la magazii inici-rmedii, spaţiul de memorie ocupat de datele referitoare 
la magazie depinzind În mare măsură de modul în care sînt codificate mate- 
rialele din stoc. Asocierea unui număr mare de date unui inaterial dat va reduce 
numârul total de materiale ce pot fi cuprinse în tabelele de descriere a magazici. 
Implicit, aumăcul masin de materiale diferite nu poate fi mai mare de 254, 
deuarece interpretorul BASIC nu admite tablouri a cáror dimensiune să fie 
mai mare de 254. 


| Pentrufprima lausate se utilizează comanda RUN 1600 care diimensioncazá 
matricile utilizate. Prin initializare s-au introdus 5 materiale, 2 produse $i 
consumurile snenie aferente, Prin program se mai introduc restul de materiale 
şi pruduse. După inițializare programul se lansează cu comanda GOTO!$ 
pentra anu iaiţializa masivele completate cu stocul magaziei centrale, respectiv 
cu stecul meselor de lucru. 


11.6. Balanța de verificare debit-credit 


Programul constituie un exemplu simplu de realizare a unei balante de 
verificare. La prima rulare, programul solicită introducerea numărului Total 
de conturi şi a numerelor de cont pentru care se vor face operaţiile de debit) 
credil. Se introduc apoi, pentro fiecare număr de cont, debitele și creditele 
pe hma In pur, Se afigeazá apni balanta de verificare pé subconturi ; la umple- 


rea ecranului, afigajul se npreşte, pütind fi reluat prin apăsarea unei laste 
oarecare. După afișarea 'balantei pe subconturi, se afişează balanta de verifi- 
core pe conturi, împreună cu totalurile debitoare, credílonre si pe conturi. 


«fRulările urmátoare?nu mai solicită introducerea numerelor de cont, ci 
dearddebitul “si redit! 7^ luna curentă, Verificárile se [ac incepind cu soldul 
junii" recedente. Pentru a nu distruge masivul cu suldul lunii precedente, 
fansarea “ulterioară "a programului se realizează em comanda GOTO 100. 


10 PRINT ^ BALAKTA DE- VERIFICARE * 

$0 PRINT " Dart MR.TOYAL DB CORTURI * 

20 LAPUT d 

40 SEN XC, EI, DCN? 

ap DIM RENATE, Stă 

4&0 MAT € - IRR 

20 MAT O = ZUM 

25 PRINT * INTRODUCETI CONTURILE e 
BAT LiNPUT 

p^ PRINT ^ IWTRODUCETI ee ` 

105 -BRINT * LUWA CUXGNT 

110 DOR I 5 £ TOWN 

120 PRINT WILD; *?* 

140 PRINT virze 

148: 18PUT Dol 

AS PRINT ct: 

160 INPUT Fi 

170 NEXT 1 
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180 FORL + | TO X 


2t0 511) e bir) CC)» 

220 NEXT £ 

230 IT . 

240 PRINT ATIL, Lt," PALANTA OE VERIFICARE 
245. BS - (kär 

250 0 - 23 

Zeg FOR | + | TQ.N 

220 PROUT Afi, LI:KC SA, 

200 us usi 

390 IF U « 31 Të 350 

$090 as = ixxur? 

919 LP an a Ya THEM 300 

$8000 * 3 

330 IKIT P 

340 PRINT ATI. 117: UALANTA DE UFPIFECAEF 
330 KEAT) ` 

340 bt 4 (Net 

330 "IF an - Dn bM 280 

300 T * si: 

390 H » IMPeRc 710301 

109 lut e 

410 PRINT Art, 31," TOTAL CONT 
4300 * A 

930 PUR | + 2 TO N 

440 IF M. €» INTris D o7 10001. THEN, 9 YO 
450 Ta isi: 

440 9910 sa 

AFO PRIMI WER DE A 

480  INTikitira000: 

490 T » $11! 

Su: Vei 

310 IF U 4 3€ FEN 520 

520 AT * |hker* 

"UO LF An : B* THEN 220 

$1909 3 

$30 intr P 

200 PRINT AT, (IA cour e 
$?Q MEAT I 

980 RRLNT ATCI, I); LT. 

do ng HA) 

420 IF an: ge wën eru 

439 MTE ` 

eng PRIMT Aft31,12:7 TOTAL EALANTA © 


700. U 3 W+DIT) 

HO 0 e HRO 

220 WEXT t 

730 PRINT AF13, atj TOTAL a: * 
740 fRIHT ATES 1); TOTAL CR: 7 
280 PRINT ATEZ, 14“ BALARTA KR 
760 STOP 


11.7. Transformarea stea-triungbi şi reciproc 


Programul determiuă rezistenfele echivalente celor ‘două transformri 
după formulele : 


Tie —r tr M 
Tg 


8) [| rapperii (transformareaEstea-triumghi) 


T 


Fg vera]; + ——À XA 


5 


Transformarea stes-triunghl şi invers 1 
Iu dia) rac dc itio o ac cl E ie ciun 
n= ulei (transformarea triuughi-sl.ea) 
Tayl 


10 PRINT * CALCUL REZISTENTA GCHIVALORIA * 
zü PRINT * Le SCHEMA ELECTRICA STEA IH TRLUNGHI " 
23 PRINT * Ze SCHEMA ULECYRIGA TRIUNÜHL LN SERA * 
30 eur x . 
A0 YR Y = 4 CHOR 216 e ! 
50 PRIN? * SCHÉMA ELECTRICA TRIUNGHI IN STRA * 
40 PRINT * DATI REZISTEHTELE JW TRIUNGHE * 
70 PRINT * Es "i 
90 INPUT A 
90 PRINT * R23 ^ zi 
b 


LSO PRINT * R31 + ^| 
c 


449 n > Iëstiag 

E * !BeMJ?S 
160 R = ICaie$ 
170 PRIKT * R3 = “ID 
180 PRINT ” Ra » op 
190 PAL * R3 = "P 
209 ETOP, 


210 PRINT ^ SUBHA KLEGTRECA STAA IN TR(UNCUL e 
21Ó PRINT * DAT! REZLSTERYELY 1H 'STCA * 

240 PRINT + Ry ari 

230 (eur 3 

"mag PRINT * R2 « ei 

"290 INPUT € 

209 PRINT * R3 » *j 

270 INPUT F 


200 A » GL HE*LDSEI 08 
290 8 3 E*F-(CSE YD 
200 f e Proite» 
210 PRINT ^ £12 a “IA 
A29 PRINT * R29 o up 
330 PRINT * R31 = "(C 
34à STUP 

359 END 


Se solicită prin dialog tipul transformării şi valorile rezistentelor corespun- 
zătoare, Se afişează valorile rezistenfelor echivalente. 


11.8. 


Dimensionarea liniilor de alimentare în curent continuu 


Se consideră un conduulor de cupru enplat la o sursă de curent continuu. 
De la acest conductor sinl alimeatati mai mulți consumatori, fiecare avind 
un censum Pi și o distanță Li de la sursa de alimentare Secţiunea conductoru- 
lui se deduce pe baza formulei: 


unde : 


2-100 
S= AUA SPL, 


Weer este eanductivitatea conductorului 

AUY% cate căderea de tensiune maxim adinisă 

U este tensiunea nominalà 

P estefpulurea ubsarbită de fiecare consumator 

h este distanța consumatorului faţă de sursa de alimentara. 
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V5 BRINT * CALCULUL LIRCEL CONDUZTORRE * 
i5 PRINT." OG CURENT COKIINOU Sua * 

29 FRIT * TENSCUNE bf 229 VIIA CUPRU * 
9o PRINT * UATI HURARUL UE COMSUMATORI * 
49 [NRUF N 

SC PRINT * OATI ÜLSTAHTGLG DE LA SURSA * 
$5 PRINT © (N MATRI * 

«9 DIN LIN: 


Zo NAT 1HPUF L 

GU PRINT * DATE CONSUNMURILE e 
$2 PAIN? * IR UATE e 

9€ GIN CIO 

Y hat tMPUT C 

DEE 

120 FDP | * (| TON 

lae $ r SeCitavtes) 

140 NE3[ | 

195 $ « $*2s100/1532932229*2) 
169 PRINT "Ee äis MAR 7 
170 ging 

snc pan 


Se solicită prin dialog numărul de consumatori, distanţele de sursă şi 
consumurile ficvăruia. Se afişează valoarea sectiunii, considerind sursa de ali- 


mentare de 220 Ve.c. şi prinderea maximă de tensiune «€ 3% din Leușiunea 
nominală. 


11.9. Determinarea greutății materialelor ce intră 
în componenţa unui corp eterogen 


Se consideră un corp compus din duuă materiale, Fie G greutatea ucestui 
corp, cintărit în aer, și Ga greutatea sa, cîntărit în apă. Fie pu densitatea upei, 
pl densitatea primului material şi p2 deusitatea celui de-al doilea material. 
Rezultă : 


f31 e MP G— 6G. Gpafn 
iis mem 


6 2 = [21] (6—6G,) —Up.0s 
A p. (Pip 


preutateu primului material 


greutatea celui de-ul doilea material. 


Se introduc prin dialog valorile celor două greutăți, precum şi densităgile 
fiecărei componente. Se afișează ca rezultat greutatea: fiecürei componcute, 


Io PRINT ^ GREUTATEA MATERIALSLCR KCKPOMONTU * 
722 PRINT * ALE UNUI CORP NETGZ2CGH * 

UO PRINT * RATC GREUTATEA CORPULUI (Ir AER * 

aa INPUT Ai 

TO PRINT ^ ONTE GREUTATBA CORPULUI DW APA * 

ap TRP? 62 

70 CORINT * DATI NEKSC ATEA Hat — LONFONXNTE ^ 
09 INPUT RL,RÀ 

Ou ren * DENSITATEA AFELE » 1 ' 

100 $371 

110 V3 5 (RISB2 «re - C20 ADEM STE 
120 V? = 1RIPR2»C01-4226L RI RII RI 1831 RII P 
130 PRINT * CORPUL DE *,01;* GRGYTATE * 

140 PRINT * CONTENE "II: OLN MATERIAL "RIA 
145 PRINT * DENSITATS * 


129 PRINT ~. CONTENE *:92, CIN MATERIAL. RS: 
125 PREIRT DENSITATE > 

1660 STOF 

170 EKD 


EEN 
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11.10. Dimensionarea grinzilor de beton armat 


Programul determină înălțimea utilă şi aria armături unci grinzi de beton 
armat, pe baza formulelor : Wës 


m 
ES Aih 


"VEH E 


a = 


unde : 

ho este înălțimea ulilá ; 

a este aria armăturii; 

m este momentul de incovoiere 

1 este lăţimea grinzii 

ra ceste rezistenta armáturii 

rb este rezistența betonului 

E este factor limită =0,6 

Se introduc prin dialog valurile pantzu ru, rb, | şi m. Se afişează valorile 
înălţimii utile şi ale ariei armătorii. 


19. PRINT * GUbRNELAu8t (DINOA DZ BEIER SE P 
20 ES? MEL CONSIDERA t S p vtta S 


"Du 

a Paint > REZISTENTA AgpMATUTI] IN KÉPéEm-2 * 

„SQ (neut A 

^0. polls * REZIETENTA UETOW.JH! IN eGRICH-2 7 
c 


980. PRINT * LATINGA DRtH2I] IW GN ~ 

ij H 

300 PRINT " MOMENTUL (NCOVOIETCR IN KUR.6M " 
H 


RezüRIH/(BeCto 
~ HetcholteTa 
179 PEN " Mert sn E ri 
LUO Por “NO e * 
170 PRIK? “ARLA KA e *;7;* CH*2 "* 
203 tT0P 
FIDES 


ER? 
Rz 253215] 
He 

H 


11.11. Calculul secţiunii elementelor de construcţie 


Programul determină caracteristicile principale ul: diafragmelor utii- 
rate iu coustructii, pornind de la descompunerea secţiunii diafragmei în drept- 
wnghiuri elementare. Se solicită ca date iuifisle numărul de drepluugbiuri 
elementare ce compun secfianea, precum şi dimensiunile unui asemenea drept- 
unghi. Se afişează drept. rezultal : 

— aria secţiunii diafragmei ; 

— momentul de inerție; — 

— coordonatele centrului de grentale. 
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inii 


muy 


140 


270 


319 
3:20 
330 


PRINT * CALCULUL Secr punte ELEMENTELOR * 
PRINT " UE CORSTRUCTIL 

PRINT ^ DATE NR:QREPTUNOHLURI ELEMENTARE * 
INPUT H 

DIN bou» 

PRINT * DATE LATINBO: TWALTIMEA 193 CM ^ 
FOR Í = ) TON 

ANPUT 303) 

1HPUT KIJ? 

EXT 3 


>t TAR 
Lien 

Met DI 

HE MT H 
Acht 


TeeHe 4272201413412 
We 


H 
D 
o 
KH 
Dk 3 
D 


Sr SERT ORONS 
E 


rixen 


LRLIPEL ITELI T L 

B * Het) 

NEXT J 

PRENT “ARIA e rAz” ev? * 

PRIN? *NONHEHT ,LBÉRTIS a site CH" 4 e 
PRINT "HS x *;D;* CM 

PRINT PHD * *iH-D»* că ^ 

seo 

END 


11.12. Determinarea momentelor de incastrare perfectă ale 
unei grinzi de beton armat 


Se consideră o gri 
cît şi unui număr oarece 
tului de incastrare sting 


udă de beton supusă atit unei forţe uniform distribuite, 
ave de fortc concentrate. Se:deterimină- valoarea momen- 
aşi dreapta. Programul solicită ca date iuitiale : lungimea 


grinzii, valoarea forţei uniform distribuite, numărul total de forţe concentrate 


iar pentru fiecare forţă 
a grinzii. Se determină 


309 
wo 


concentrati, valoarea ei si distanta faţă de limita stingă 
valorile celor 2 xomente de incastrare și se afigcazá. 


PRINT 


* MOMCNT 0D LKCASTRAZE PERFECTA * 
PRINT « 
INPUT L 


LUNGINOA .GRLHZUE $8 N" 
PRINT * FORTA (isen DLSTRIOYIYA TK KGE/3 e 
INPUT P 


Toa pagez 

RT ; 

PRINT * WR.-UL FORTELOR CONCEATRATE * 
ENPUT N 

(P N = O THEN 280 

DIM FIH), XINI 

PRENT * MHARLKLLB $1 DISTAMTELG RORTOLOR * 
PRINT " CONCENTRATE PATA DE STINGA pit * 
FOR 2?» 1 TAN 

INPUT P4235 

Igpus X63) 

Lë. krx THEN 296 

NEAT 3 


FCR J -370R 
AI s ri 


> AD 2 ta 


V e Miva? anel dou 
Te. my 
M x AL*RSAQSFUJSRL. 
po Aey 
WEXT J. 


PRINT *HST = ut: KGE.H e 
PRINT CHOR = iber Ron.M " 
STOF 
PRYMT * AQSCISA GRESITA ” 
Stop 
eno 


Ggitmirarsn consunanini de îngrășăminte chimice in agricultură 


11.12. Optimizarea consumului de îngrășăminte chimice 


în agrieultară 


12% 


jn porneşte de la [unrţiile de producţie pentru terenuri irizate 3! natrigata + 
Tiwo =Kpo +K ma Jas! 
Yamen =d FH ANN? 


ius à 
AM esto dera de 


LI 


(oO sigt paramet. 


Ingräeiuint la hectar 
rii fuuetiei de productie 


€, sint coeficienți de multiplicare 


S35888p88a 


PRINT * CONSUMUL NA TRORAZA 276 
FRINT * CMEMICE IN ANPRhONIE 7 
PRINT * DAT PAGAAGTRTI Aë, 81. AG 
PRINT © A BUNGTIGI DE "üccUUTIO * 
ENPU? A0. 91.82 

PRIHT * ORTE COEPICIEUTII F^,Rt.K2 © 
PRM? * DE MULTIPLICARE * 

tNPUT VARL, RR 

NA c A1 änëbéréänt 

M3 ~ WI«Al/12«E2»A084 525) 

ho* NANI 

HOH 

PRINT ATUM, Lis 
PRUT ATIS Lr 
PRIRY AG 


"wNnT!a CE PRODUCTIE 
VOMETRIUD * *; 
DL 62i ee 

PRINT ATCP. LJ 4 1tiniGAT) KN? 

PRIRS NGUAQ| ze rcbienn [ *wfili* KOAI vw: ae 
PRINT AT(7,1);* Däin HaxikA OR HBIRIO e *, 
PREtRY Mi ` dj 

PRINT At, 111" DAZA HAYIRA TRIQAT e +, 
PRIRT N? K 

PNENY AT (12,0);* DISERENTA ` "oh 
TI * ^O*G1uWI -A22483*2) 

Y? * KOsAC*X1oniaH2eN2 "aqu H2 dí 

Y 9 0320 f 

PRENT ATC13,)4* MAXIM FOHNIC NflIREO 
PRINT ti 

PRIM? A$€12,104*. BRAXIN TEHNIC IR(OAT © . 
PRINT Y2 

PRINT AYCI?, 131° DIFERENTA e "ut 

SL s TL LU 

Y2 e Yo-KO"aO 

Y » X2-x1 SG 
PRINT A7(22,1),* SPORUL géi HEIREG » *, 
PRUT T] A 

TRIKT ATr2J.151* GPORUL MAXI [RIOAF è *: 
POINT a 

A, e DEET € 

17 A9 " * * YH8M 249 

aura mE 

KAMERA HACK 

ROVS -10,0 

DRAN Hze30,0 


) N098 €. 10 


mrau O,Y2110 

FOR 132 TO ZJSINT: 1820901/295) SIEP 23 
HAVE T, 20 

DRAG 1.90 

HAAN 

KRAH OD 

POR La TO (ëäte ite) STEP 1000 
Note ul 

Gueuy 89,1 

LA) 

"n * d 

po 

E > A2 

FORK- 3$ 10 2 


t — Imseosaleuinterul personaj aMIG — vel, I? 
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ed HOVE 0,0 

SOC FOR 1-19 fO )OR|IMTI GI2e20 710? STEP 12 
SIG Y = AcBet-Cel*2 

$20 ü&^U fY 

530 MEXT f 

Dän A = X9sfio 

$99 B = X1uAl 

$69 C + K2vaz 

37G MEXT K 

280 MWE N?,0 

590 ORAV Mi. Yi 

$60 WEVE N2, 0 

AIU DEAU N2,Y2 

$30 A* *» INKETS 

at) JR As » * * THEN 400 
030 REN” CITIRO CONSTANTE * 
€60 RAAN R,ü.C.D,E,F ` 

CH IK) 

OBO 9tM MIG, 

690 MAT na ZEK 

205 Y « in 

BOO r +0 

RIO VINE -t0,300, -30, 10203 
020 NOVE -10.0 ` 

Ba Drau 302.0 

B40 MAVA O.-19 

954 DRAU O, IODA 

$60 FOR | v 1 TO CRT EH 
072 MovE 1, -50 

$80 DRAU 1,50 . 

G99 WEXT 1 

960 FOR [1092 TO BODO TAP too- 
916 Nova -10,1 

720 BRAV 30,1 

730 WEXT $ 

PAO FOR Y = to 70 1e€ STI iu 
no x + o 

240 00950 2999 

9? U = ien 

780 HIVE X,Y 

770 MU, * X 

3000 DCH, 21 e Y 

3020 POR X * LO TO rap STEP 10 
3020 G0zUB z000 - 

1030 DAU X, Y 

1040 (P. Y € HI, 21 THEN 1070 
1999 tU, 1) = x 

1062 Muz « Y 

1679 NEXT X 

1000 HIT,IO) «N 

109Q NEXT 3 

1102 NOVJ art, 12, NCE, 29 

ILLO FOR 1 « 2 TÒ 19 

102 ORAV MC2. (UI 

1130 BEST 1 

1140 STOP 

2004 9 > LENZ 


TILO V + BüNIZ^EJux 

2220 U a Cel2-F)eix-2i 

S930 Y a Qev-u 

2040 RGYURM 

ROSO DATA 36.1,1?.11,0. 726 

2050 DATA 1.1007,0. 11058, -0.60987 
2079 Ono 


Se determină duza maxhná de fngrágiümfnt pentru teren netrigat şi teren 
irigat. Se determină apoi maximul tehnic de producție si sporul maximi în cele 
două condiţii de lucru. 

Be vizuulizeuză graficul fuucţiilor de producţie in condiţiile de irigare 
şi neirigare (ccoord. x—doze de ingrígümínt în kg/ha; coord, y-preductia 
medie în kg/ha). Partieularizind pentru funcțiile de prednetie caracteristice cul- 
turilor de grîu, avem (vezi liniile 2050 si 2060 din program): 


Y «36,1 NBV*9.-17,11 NB021888 QN. 0,756 NB% gy? 


În buza acestei formule se trasează graficul producţiilor medii de griu, 
In funcţie de notele de bonitare ale terenului agricol. 
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Modificarea liniilor 2050, 2060 permite calculul funcţiei de producție 
pentru alle tipuri de ealturi. 


11.14. Calculul volumului rezervorului de compensație 
pentru reţeaua de apă potabilă 


Variația consumului de apă pe parcursul unei zile se determină în baza 
debitului înregistra! ia fiecare oră. Considerăm că alimentarea de la rețeaua 
de apă sc face cu un debit mediu constant ; in acest caz, rezervorul de eorapen- 
Satir va trebui să acumuleze apa necesură consumului în orele de virf. 

Programul solicită mai ntfi introducerea valorilor celor 24 de 
debite orare. Se determină apoi debitul mediu, pe baza formulei : 

2 
1 : 
Dm: - Ai Di 
Rezultă volumul rezervorului de compensafic ` 


M 
Vr es Y, (Di— Dm)*(SGN (Di—Drm)-i-1)/2) 
121 


Be atişcuză cunsumul mediu $i volumul rezervorului de compensație. 


10  PALNT * REZERVORLL JE C2NPENZATIE $ 
20 DIK 2024? 


JA PWIPF * DATI CUKAUMURILO PE ORE ° 
to MAT INPUT A E 
LJ 


9 
$0 POR E = 3 10 au 
TO R = Sept 


MO V a VeCDCII-X) 

143 HEXT 1 

1*2 PRENT * COSSUN MECLU “sA 

165 PRIN? ^ VOLUMUL PETERUOPUTUI *:V 
129 Şren 

189 END 


11.15. Studiul unui filtru „trece-jus" 
Fiind dat filtrul DC .irece-jos" din figura 11.3, ecuația va Fi 
U, (t) - Us ()4-RC Är. 
Ecuația poate îi aproximuată cu: 
U, (n) e- Us fait. e [Us ()—U» (n—1)] 


unde RC/AL—(r este constauta de tbnp normată o filtrului. Rezultă relaţia 
de recurenţă : 


Us (n) = Ao + n Ua (n—1) 
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uito at) 


Fig. 11.3. Filtru RC „trere-jes". 


H 


Borsa semnalului de intrare este definită în cadrul prugeaauiui In uniile 
150—186, obtinindu-se lu ieşire un semnal ca în figura 11.4. Pruptamui tolicité 
introducerea costantei do fimp nurmute şi a valorii iniţiale a somnului du 
ieşire Ua, Se trasâază graficul suprapus a celos comă semnale, vbținindu-ae 
diferite foree ale sem uulului Uz în Fupcjie de constanta de tiup Tı regimul 
tranziteriu poate fi observat cu uşurinţă pe grafic. 


I^ Feit * SU, au TRL lt e 

2 PRINT * CĂANRVEUL Tic 3 * 

39 Auer T 

40 FRIAT * CATI PACOAREA [KfTIAU^ ui: 
To HHP Ya 

49 Nie 


Zo VitüJU -10,29, -3,7 
60: HOME 10 
39 Dau 920,0 


C MUR pE? 
19 UL eu i 
129 CIR 194 
MO Ul es 
190 ERAY Kin 
KIT 
219 U2 x U'Lérte tle erri tay e? 
220 ERA XER 
"29 Kou ri 


Fig. 11.4. Semnalul la inşirea filtrulni ,trecc-tus*. 


11.18. Calculul saliniti(ii unui canal de ecluziă 


Programele rezolvă determinarea sulinității apri într-un canal de eclusi 
ce leagă duuă ape cu salinitàt diferite, Sé intradue datel» iuifiale gi în diferite 
ipoteza de lucru se obține numărul de ecluzüri nece&are. 


Calculul exlinitátil unul canal de eciuză 


5 PRINT * PH QR vi^ 

t9 BER, SES DL men CANALULUI» 
IS RER AJPDIEZA Le DIFERENIL V » as 
$8 SEM "LITIAE DATE INITIALE” 

36 NEAD C1, C2, E S, DEO HEr A vu E 

35 RER "CALCUL COBFICIENTI" 

aa Date. 

Sp CâmDrtaent ` 

$8 OSEN the (Nana? 

Ap NEM "CLUBTAN(E" 

78 ds1-D3 

ap ete? 

43 fetétäar? 

45 REM "BALLUITATL Austin S A B » e 
«C24s2C3ot1oD ov bag 
118 lictC Set z-CpetG24C2 4030 aC 30904 
128 Wxà/2 

139 Ouken+B 

Bän 9EKke3DR(D) 

225 REM *BsLIUITATÉ INITIALA. EA Se Me 
$39 Vtbzel.2e3»1ett232TACY 

fin REM *APIHCIHÉA AtmuNETan 

Bav HacecSacidrtca=cl 

Cas DEN "VARIATIA BELINITATII* 

236 N= 

fot ISCI 

210 WoC3 

250 Frei 

206 VuHet 12H Y/F ew 

300 IebzsC2-DS»Yatu-nbaday 

310 WsD3aV6(12D1)«n 

349 REM *VERI?IÉARE LIMITES" 

324 IP [»cM-E THEN Sa 

)19 IF Vrzh-E THEN $89 

Sag IF vest Set THEU Jaa 

156 GoT02he 

369 PRINT * nu*afuL DE FCLU2AR]. ru 
$76 ATIP 

375 EEN "DATE I'ITTALL" 

340 0414 €.15,11,0.5 

398 DATA eitte£, T," 

Gop DLIA Docó, 30, ckà 

RIO Data ş.a 

una ERU 


KLANK 
10 REN *CALCULU. 20 Iettattt LemrLulia» 
15 ASH *IPOVEIA 2 a OYFCRCN(A V >» ge 
20 AEM *CiTIFE DATE IKITIALL” 
Se READ C1, E246 60,0), n2, A VM Vau E 
33 DEM Statu, COEFICD)EA T1" 
[LE LI 7211 
36 DRIDI ami) 
Aë O3eG/CA»CH14H21) 
bS 0A232771 
78 Diăatimbn)atisuup ; 
T? REM ^3aLANIT4 IC 4QMISA d à EEN 
75 SSCti-0S)ecS-0üeC$) rto1oti Dana 
bt S1s023C2385(12 12) * ($963 9e De CLo Dou C A 
SP RECLINE Yed lehäietchetit3/ Viet Lei e CC de C1 09 
HS REM *vaRínila SALIALTAti* 
199 Nco 
118 I-C2 
138 mata 
125 Maat 
439 Weite? 
348 V-üe(Tem2o rts) ene 
159 16922LJ-DS« (pG) ei eg ëtt LL o2) 
158 u2zt(eha26DLay eS el QUAL 4 
174 Minbissetl opt java 
173 ACW n )EREFICADE LINITE” 
BAS IF wéiee (EN Saa 
169 NM Aspäief THEN EA 
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11.17. Calculul hidraulic al ecluzelor 


Programele determină caracteristicile hidraulice principale ale unei eclu- 
ze, funoţie de condiţiile de evacuare a apei. 
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“Capitolul 12. | Microcalculatorul personal aMIC 
în procesul de învățămînt” 


lucercárile mai vechi de utilizare a calculatoarelor în procesul di invá- 
Tümint s-au bazal pe folosirea terminalelor de tip display, cuplate ta utrcaleulator 
central. Deşi utile, sislemele nu s-au extins în învățămîntul liceol, chiar în 
țările avansate industrial, datorită costurilor lor riditate, 

Apariția caleidaloarclor personale permite abordarea acestei probleme de 
pe noi poziții, deoarece aceste calculatoare pot fi Inlosite de către clevi, atit 
în scosla, cit ai lu domiciliu. Facilităţile hardware și software de cave dispun 
calenlatoarele personale permit cuplarea Tor la uu calculator central, dotat. eu 
o bază de date (cunoștiaţe). Iu acest context asistarea procesului de invát&ininl 
de cre calculator capătă noi dimensiuni. 


12.1. Modalităţi de integrare a calculatorului în procesul de pre- 
dare-învăţare, locul şi rolul acestuia în asistarea procesului 
de invájámint 


„sistarea procesului de "tnuáfümint cu calculatorul, Accastă problemă 
este de dată recentă, dar de mare perspectivă şi cu consecințe pozitive 
pentru optimizarea predárii-invülárii, pentru integrarea învăţămîntului cu 
cercelarea, cu producţia, cu viaţa. 

Este cunoseul. faptul că în ultimele două decenii, colaborarea dintre 
informaticieni, constructori de calculatoare și specialisti dia domenii ale instruc- 
Heil si educuţiei a permis inițierea unor programe concrete privind folosirea 
calculatoarelor iu procesal de învăţămint. Ca urmare, au fost concepute, reali- 
zate şi perfecționate variate limbaje de programare, ca ajutorul cărara să se 
poată edifica autoinstruicea automată, să fte prezentate lu clasă lecti, uri 
secvenfe ale acestora, în sprijinul optimizării procesului de predare-învățare, 
În consecinţă, psihopedagogiei i-a revenit sareina edificării unei metodologii 
care să asigure eficienţa asistării procesului de învățămint cu calculatorul. 

Concept de asistare cu calculatorul a procesului de învățămînt include 
atit predarea cu calculatorul a unei lecții de comunicare a noilor cunostinte, 
de aplicare, de consolidare ori de sistematizare a acestora, cît. şi verificarea 


* Cu orientare spre Învâțămintul mediu. 


| 
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autemată a unci lecţii sau a unui grup de lecții, a unei anumite discipline sco- 
dare la [inele unui trimestru sau an şenlar, a unci amunite programe $calare 
în cadrul examenelor de absolvire sau de admitere. Tot în cadrul „asislării“ 
este inclusă si prezentarea sau verifiearea cu calculaturul a unor secvențe ale 
lecţiilor desfășurate după melodologia clasică. 

Calculatorul devine un auxiliar al procesului de iuviüfümint. 


Tehnica instroirii cu culculalorul. instruirea tu ajutorul calculatorului 
se realizează fie: în cadrul asa-zisélor „clase automatizate“, in cure lecţia se deru- 
leuză secvență cu sceventà pe ecranul de la pupitrul fiecărui elev, fie în cadrul 
lahoraloarelot de matematic — wai ales, pentru prezentarea de la caledră, 
prin intermediul ecrannlui, a unor secvenţe ale lecfiei clasice. O clasă automati- 
zată dispune: de un calculator şi mai multe terminale (în jur. de 30) care recep- 
ţiancază mesajele pe ecranul individual, e Kees E 

Predarea lecjiei prin. intermediul "ecranului se realizează printr. o succe- 
sine de imagini numite ;imagini-ecran“, care afișează lectis, derularea lar 
fiind dirijată de câtre profesor — 1a concordanță cu normele psihopedagogice 
nle procesului de instruire la virsta și in cadrul obiectului predat, 
amansi Bar teni era Pre ar 2009 r e iei aA ian aat E een 

Instruirea cu ajutorul calenlatorului se poate însă realiza $i îu alara 
schemei clasice a procesului de invățâmiînt. Elevul, studentul, sau orice altă 
persoană interesată poate beneficia, într-un anumit cadru, de posibilitatea 


“auininstruirii automatizate. Aceasta se realizează fără profesor, activilutea sa 


fiind însă materializată în lecţiile afişate pe ecran. Dialogul între maşină si 
eel cure învaţă singur se realizează cu ajutorul unci corisole legata de calculator, 
aceasta fiind construilă dintr-o claviatură alfanumerică şi din ecranul semnalat 
nal Sus. : 

Lecţia, sau grupul de lectii, sînt stocate în memoria caleulitorului si cu 
ajuiorul seftware-ulai sînt. :afişale treptat, imagine cu imagine, pe ecranul 
consolei, fucniziud astfel muterialu! de învăţat. 

777 da eadrul scestei instruiri elevul isi poate regla singur ritmul de afigare 
a imaginilor pe ecran ; el îşi poate intrerupe pregătirea în orice moment nl lec- 
Dei, reluind-0 de In secvența la care s-a oprit, pe baza „recunoușterii“ sale de 


„către caleulatur. Această posibilitate de „recunoaștere“ permite folosirea in 


timp n aceleiaşi lecţii de câtre mat mulţi elevi. 

ka “în lecţiile predate cu ajutorul calculatorului sînt prevăzute şi exerciţii 
de control, răspunsurile putînd D adesenri selectate. dintr-o listă de variante 
afișată pe terminal. Meloda folosită în acest caz este, oareeum, similară învă- 
fiiminlului programat. În cazul că lecţiu urmăreşte testarea cunoştinţelor, atunci 
fiecărei imagini-ecrun i se asociază una sau mai multe întrebări. Răspunsurile 
la întrebări sint. cotate cu un annyit. punctaj, acesta depinxind de calitatea 
răswusului şi de timpul în care n fost dat. i 

E În dislogul dintre mașină şi cel care învaţă se folosește si funcţia de 
„help“ a: ealeulntocului. Pria aceasta sint puse la dispoziţia utilizatorului, su 
formă de imagini-ecran, comentariile si explicaţiile necesare integrării si insusirii 
corecte a unor noțiuni — fără de care leefía nu poate continua. Exvidentiem, 
cu acest prilej, „posibilitatea“ mașinii de a detecta imediat eroarea în în 
susirea unei secvenţe a lectici şi dea facilita remedierea acesteia prin comenta. 
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tiul făcut şi indicarea informaţiilor suplimentare necesare continuării instruirii, 
Cel care învaţă poate (rece la secvența următoarea lectiei numai dacă a rüspums 
corect la lutrebările săi exereiţiilv propuse, interaefiunea dintre utilizater şi 
siston realizindu-se_ permanent pe bazá de dialog. _ si "M » 
| — &Caleulatoru] didactic poate fi inzestrat d cu .pnsibilitatea" de a lnemorize 
pertormanţele celui ce invajá: timpul necesar pentru rüspuus, nota obţinută, 
întrebările la care Irecveuţa răspunsurilor slabe este mare ete. In acest mod stat 
furnizate fie elevului, fie profegorului, o serie de date. pedagogice individunle, 
seu caracteristice unei anumite populaţii şcolare, care sint necesare: optimizării 
acestor programe şi lecţiilor recapitulative sau de control curent ce se vur 
organiza. 

Consecinje pedagogice ale asisičrii lecfiilor cu cateulalorul. Folosirea calenta- 
torului în şcoală oferă învăţării lecţii noi posibilităţi de dezenltare şi da eva- 
luare, Asa, spre exemplu, prin intermediul consolei pot. fi simulate pe cerna 
procese gi fenumene în evoluţia lor, unele experienţe greu accesibile laboratoa- 
relor școlare fie datorită costului ler prea ridicat, fie pericolelor existente, 
protecţiei muncii $i a mediului fucoujurător, fie depărtării ucestora în timp 
sau în spaţiu ete. A 

Cao nouă componentă a tehnologiei învăţăm înLului; folosirea caleulatoa- 
relor în munca instructiv-educalivă va largi aria de posibilități și de functionsli- 
tate a Inboralosrelor şeolare, in beneficiul tuturor disciplinelor de jnvàlümtut 
care folosesc tehnică de calcul sau de reprezentare. 

Cu ajutorul caleulalorulni poate fi optimizal. randamentul ` predării prin 

prezentarea eu ajutorul ecranului a unei lnrgi varietăţi de exemple am de mn- 
dele asociate unor secvenţe ale lecţii. “Toate ucestea concură la adineiréa sau- 
lărgi: ea:orizontului noţiunilor predate, adeseori extrapofindu-le dincolo de ohiec- 
tul predat: în tehnică, în economie, în st nt, în practivă cte. În arest mod 
s-ar putea vorbi despre o dilatare" a sferei aplicative a națiunilor predate, 
precum şi de o. „comprimare“ a timpului necesar însușiri şi aplicării crealoute 
a noțiunilor ştiinţei. Acest aspect poate conduce la stimularea învenlivităţii 
şi aplicativilátii, a spirirtului participativ si anticipativ al celui ce iuvață, 
TT Folosirea caleulataarelar ca mijtaace do învăţămînt va avea, desimt, 
conseciuțe importante asupra formării intelectuale a tinerelor generat în 
spiritul autorducaţici — şi, priu aceasta, al educaţiei permanente. În această 
activitate formativà vor fi stimulute toale componentele gindirli logice lu 
sens larg: gindivea lugico-deductivă, inductivá, analogică, ... cu accen! pe 
gindirea euristică. Va fi astfel stimulată mai bine şi problema orientării profe- 
sionale a tineretului, capacitatea acestuia de reciclare rapidă pentru seclosre 
de muncă „înrudite“ profesional. Fireşte, pentru atingerea acestui țel, considerăm 
că niei disciplinele tehnologice şi nici atelierele-şcoală, prin şi în care elevii 
trebuie să înveţe ză producă la nivelul tehnicii contemporane, nu trebuic să 
rămână în afa a lolesirii colculatorului $i a tehnicilor. de culeul ale producției 
muderne. Prin aceasta s-ar putea realiza mai bine si componenta tehnică a edu- 
caţiei multilulerale a' personalității umane. 


s: 


Desigur, progresele realizate astăzi. pe linie dezvoltării si a icftinirii circui- 
telor integrate, între cure mieroprocescarele ocupă un loc important, vor per- 
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mite construirea pe scară tot mai largă a nuor echipamente așa-zise de ''uz 
personal“, numite şi calculatoare personale (individuale). Acestea pot D folosite 
şi in procesul de învăţămînt, intrind — pentru început — în, zestrea labora- 
toarelor de matematici (de ex.), în calitate de auxiliar al predării, al verificării 
cunostintelor, ..., at învățării. 

Dar pentru integrarea calculatorului în familia mijloacelor de invüfiuiint, 
prefezoruhii i se cere să stăpiucască, fn alura specialilafii sale, nn volum apre- 
eiabil de cunoştinţe din domeniul inforraalicii, un limbaj de progrmnare a tec- 
fülor sale, cum şi o more varietato de tehnici pentru realizarea desenelor şi $ 
exerviliiler din lecţiile sole curente, de sine sau de control eie, Se Inte, 
záresie de uri necesitatea accstor cunoștințe, cum şi a unor deprinderi teliujce, 
în precátirea generală a întregului personal didactie din învățărmiulul secundar. 
Acesiea se put vhține pe fach unor programe speciale; atit îu prowatirea uvi 
versitirà s eudrelur eit și lu perfectionarea postaniversitath. Mai mult, peutiu 
felesirea calculotorului va fi necesară o pregătire generală a întregului tineret 
— în cadrul noilor pragraine ale învățămtutului Heeal, Fireşte, oste necesar 
ca — în perspectiviü — să dispunem de limbaje de progromare foarte simpli- 
ficats, mmetiarina astfel eforturile utilizatorilor pentru însușirea lor. 

Ninbuie reennoseut că nici pentru elev nu este chiar atît de siinptă si şi da 
RECH ü 


Viera individuali eu ajulurul calculate ului. Si acestuia îi esle inni 
uşor ducă poale primi cure tintele în limba sa proprie, dacă ponte "'ennversu'" 
cu maşina futr-nn lwbsj natural — np avlifieial. În plus, maşina care servește 
aulocduecaliet aulimatizote au. poate dispune de prea vaulte mijloace pedaso» 
pie, în afara cl Cu UM dia evidențierea reusiler la ro ätä1 zt, son 3 
setiunbari ny ii 2 trisiterea ta întrebări si material: vdutätn te, 


ide de apreciat aphid cà, Insnsrüdu-si eunasgtin(e "9 faţa eniseolei, eh vu) 
insulă siugur şi sigur, aduseori in riba optiin proprin, fără einotii ai fárA pertur- 
bări ule empartueatului de câlre diverşii laclori legați de mediul sân inent- 
jator. El cate scuti: de einotiile sare npar atunci cînd se vede “urinărit”” de 

către prolesut, san de către colegii săi de clasă (deşi, aceste emoţii pot avea 
irectent si ua rol pozitiv usupra personalității sale). 

T De asemienea, in [afa consolei elevul primeşte obiectiv şi eu optimiim 
.üota" ncordalá rüspunsurilor şi deei pregătirii sale ; inva (ja de aici sli-si apre- 
$ieze calitatea şi durata pregătirii, „ertoruanțale atinse şi, mai ales, tuvatá 
să-şi mohilizeze resursele de energie yi de voinţă peutmru o nowA calitate a 
muncii sale. 

După ema se vede, șliiuţei învățării i se rireumserie un nou domenii în 
vare cereelarea padugugică inler disciplinară va fi snlieitat& foarte mult, Absența 
aeesleja puate Irina accesul caluletoarelor în douwniul învăţămintnini. 

Înca de pe acum au apărut n serie de futrebări în legătură cu nga- zisa 
* înstrăiizeare” a imdividilui ea urinare à unui învățăraînt automatizat. 

Noi consideră. că nn învățăininl complet ăălomazat nu poate exista, 
problema "iust răinării” pizrzindu-si astfel suportul pe baza căruia a fost. lansată. 
Practica va fi, desigur, în favoarea folosirii tehnologiilor celor rai avansale 
și tn clonieniul. invátzinintului, alil dezvoltarea tehnicii cht și a stilutei educitiei 
fiind stríns legale de dezvoltarea întregii societăți. Or, societatea cantribuia 
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nu numai la umanizarea tot jai înaltă a personalității umane, ci şi à tehnicii, 
a matematicii chiar, a mijloacelor de iuvăţămiînt şi educație. Mai smult, există 
$i o întoarcere “reflezivă : tehnica, matematica, ..., au ta rindul Ier un rab 
tot mai mare în umanizarea umului. 


12.2. Modele de lecţii sau secvențe ale acestora pentru instruirea 
asistată de calculator (LAC) a matematicii în liceu 


Tema, Kezol.orea sisteznelvc de două ecuații de.g:adat î eu doud necunoscute (teclie dc reca- 
RRSERE ptiulare jiruta ty laboratorul de matematiciffia înce putut use a Ia) 


În această lecţie se urmăreşte ca elevii să. aleătuiascăfearect programul de 
rezolvare a unui sistem de două ecnaţii de gradul I cu două neennoseu!e si 
schema logică a rezolvării sistemului ; de asemenea, ci trebuie să se convingă 
de necesitatea folosirii caleulaterului la rezolvarea unor sisteme care necesită 
un volum mure de calcul. 


1° Programul de rezolvarea sistesnului: 

Pe baza recapitulürii cu clasa, a principalelor noţiuni și metode privind 
rezolvarea sistemulor de două ecuaţii de gradul J cu donă necunoscute, se sta- 
bilegte programul de rezolvare a sistemului 


AX+B-Y=C 
D. X--E.YX-—F. 


Astfel se notează: M—A-E—B-D, M! -C-E—-F.H, M3—A-F—UC- D si 
se face discuţia de mai jos: 

dacă M= și M10, atunci sistemul este incompatibil ; 

dech M=6 si MI =+), atunci sistemul este cuinpatihil nedeleriuiuat "ȘI are 
o infinitate de soluţii ; 

dacă Mz, atunci sislemul este compulibil determiuat si are soluțiile 


x MU y MP 
M’ PN 


2. Schema logică] ZS 

În perspectivă, noile programe de matemalică vor beneficia — probabit 
de noţiunile privind schema logică, încă din clasele VIL—VIli. In acest cuz, 
finind seama de program, se va ulcălui cu clasa schema logică a rezolvürii 
sistemului. 


Obserpa[ie. Iu cazul că programa nu prevede noţiunea de schemă logică, sc va 
trece lu rezolvarea unar sisteme de ecuații, verificindu-se soluțiile 
cu calculatorul. (fig. 12.1) 
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Tig. 34.1. Organigrania rezolvării unui sisiem de două 
ecuaţii tu două necunoscube. 


A. Programul în BASIC 


1 INITP 80. X.—M1/M 
A PRINT "REZOLVAREA UNUL SISTEM 90 Y223M2/M . 

DR” 100 PRINT “SOLUȚIILE SIJSTEMUT UT 
10 PRINT “DOUA EGUATII CU DOUA” 10 PRINT "X=", X; "Y-',v 


15 PRINT NECUNOSCUTE” 120 GO TO 180 

uU) PHINT "A*X--B*YzC:D^^X--E*Y-—-F'' 130 IF Mic 50 THEN 300 

30 INPUT ABD 140 PRINT “SISTEM COMPAT, NEDETCRR-- 
40 M—A*l—H*D , MINAT" 

50 Mizf(*tcopm 100 GO TO 186 

60 M2-—A*Y-— C*D 160 PRINT "SISTEM INCOMPATIBILE” 

70 3 M—9 THEN 130 180 END. 


4". Aplicaţie pe calculator 
Ne cere Tezolvureu sistemului : 


5,0625x --875y 7:21, 851 
| 105x4-3,25y =163,9348 
Praetie, o parte din elevi vor da soluții greşite în rezolvarea acestui sistem- 


Soluţia este: x—1,5024 ; y 1,9024 
Se trece apoi la rezolvarea cu calculatorul a sistemului. 
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Caleulatorul ,aMIG" oferă soluție: x2:1,50280 ; y —1,00239. 
In final, profesorul se va opri asupra unuiu din obiéctivele acestei lecţii 


-de recapitulare şi anuine acela al necesității alcătuirii schemei logice — ca dovadă 
a uncr priceperi şi deprinderi trainice în rezolvarea sisteznelor de două ecuaţii 


eu donà necunoscute. De asemenea, pe baza rezolvării ultimului sistem, elevii 
se co0viug că este necesară folosirea culculalorului pentru rezolvarea unora 
din sistemele cu coeficienţi mii „cemplieaţi“. Ei vor fi solicitaţi să ofere caleula- 
torului, spre rezolvare, o serie de sisteme compatibile sxu jacorpatibile, să 
cuim pare timpul lor de rezolvare eu timpul necesar culenlatârului ele, Pe această 
bază apare şi dorinţa fusuşirii noni limbaj de programare fü vederen accesului 
lor ue uileulatorul olii. 


“ran, Runefta ţaecsență dintr-o fecjre de sinteza de du finele clusel u FX-u — ca koale servi 
ca o lucrare de conlrol al cumsglinjelar: recapilulute), 
Prin intermediul consolel se protected pe ecran functo 


f 1(—5,0] — 4—4,4) 


st edrel grufío eate dat în figura 19.9 gl ac cere sd se acri» ; 
P. o muljfiea nuloritir Jnnelici ; 
$. langimeu fiecărei segment al figurii (în pidinen de pe [tgurM à 
3". punta (fiecăreia din. diepttle ce con[in. scgnenicle [iptizit (In oratna); 
4^. ecuațiile dizptelor ce contin segmentte figurii (in ordine) i 
€, dacă funcţia exte injectivă rau. surjceliaă ; 
6. mulțimea vulurilue arguinenlelur pentur tare se urulen:ă funeffa t 
T. muljimea nuluriter argumentelae Pentru cure (Gi Q (respecto fice 4 


P. muljinea pentru tare fancila este.sirici erescilua;e (respecto strict deseres- 
cătune] ; 


9. reprezentareu în acetăşi sistem a funejiilae dale de gm faza” A gr 
= felu , unde f exto, funticția dato dnt[tat.. 


si $a) ! 


CU 


Îi 3,0) 
Big. 122. Funcție Jali sob forn. à grafică, 
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,Gbsercajie. Pentru liecare diu Inlrehăciie puse. (execut iuni 97) sint atașate cite douk ras- 
puusurt din care ua este corect $1 on prea preu de sesizat. Pântru:(9), explicaţiile aupiimeu- 
taze conţin trci sisteme de are de coordonate : primul reprezontind ysaf (x) 531 y= | f (X) |, a 
delen penlri ve) 9 y=— 1 (x) |, lar al treilea contine toate cele tre! gtatica în ordine 
(linie plină, punctat şi liniuţe). Elevul 1) subliniază cu o linte pa cel corect și predă, lucraras 
prufesorului. In tema do acasă, elevul trepule să răspundă la tatrebările da mai aus; motivtad 
care sînt elemeutele de care n-a ținut seama In carul răspunsurilor incorecte, Acest mod de 
ucr N va stiritul să Totélesgá functii de ,help* a catenlatorului, cónstrulnd el însuşi .cumeéa- 
tarin? şi trünitereà la materiat auxiliar“ ,,,. 


Tema. Funi putere de forma i 
! 1: — R; (Ix) =s", oeh 
$i functi polere de forma t 
NRN} — R, 10900, nez 
f Relu u seovenjă din prima parte a unei lect de siniecă da la finele clasa 
d, IX-a, saa. de la începutul. clase] o Xa. Caleidgturul exe folosit atat de câtra 
profesor pentru anirenareă olndiril ,. productions a f'atregil clase). 
1°, Prin intermediul consolei vor fi' proiectate pe ecran citeva grafice 
rrespunzátoare.Iui n e (0, 1, 2, 3, 4, 5), in două etape: 
_19. Cazurile particulare (pentru ax şi pentru uzi): 
(n == f (x)--1)— dreapta de ecuație y=}, paralelă cu (Ox) figura 12.3 4 
in i => f (x):=x) — dreapta de ecuaţie y —x, bisectoarea T, figura 12.41 
Se retine de aiei ideea că graficele tree prin punctul P (1, 13. 


Fig; 12.6 Fig. 12.7 Fig. 125 
Fig. 12.3. Functia y — t. Fig. 12.6. Funcţia yz x°. 
Fig. 124. Functia y= x. Tig. 12.7. Funcţia yz x'*. 
Fig. 125 Funcţia y=x?. i Fig. 12.8. Functia y—x*. 


129. fa ceu deia doua étapà se praiectează graficele urm&toarelor functi a 
in 2225 E (x) —x*) — parabole de ecuaţie y =x, figura. 12.5 
ín —3) => [ (x) 2x?) — paràbola eubicá de ecuaţie y--z5, figura 12.6 
in 4) = f (x) x!) — grafie de tipul parabolei, avînd ecuaţia y «x, Figura 12.7 
iu =f = f(x) =x") — grafie de tipul parabolei cubice, uvind ecuaţia wx, 
figura. 12:3 E 
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2. Comentarii ce se pot desprinde din analiza graficehu de funcții 
t(n =n, xe B, neN, 

1%. Pentru orice n, n-naiural, graficul trece prin punctul P (I, 1), si 
pentru orice ", neN*, graficul trece prin originea axelor, deoarece propozi- 
fille 0=P" şi „l pa sînt adevàrxale. — 

Es Dech n este număr ustura! par (n=2p, 1 p) graficul este simetri. 
în raport cu asa (Oy), deoarece : f (—x) &(—x)».—x* =f (x), funcţia: f. fiind 
pară. Dacă M (a, b) aparține graficului funcției f (X) x», xeR; atunci este 
adevărată egalitatea b —a**. De asemeneaà, este'adevüratà și egalitatea b =(—s}® ; 
adică, M' (—a, b) aparține graficului funcţiei date. Fiecărui punct de pe grs- 
Dr M' (2, b) Ji corespunde pe acelaşi grafic simetricul M' (—a, b) în raport en 
axa (0y). 

4". Dacă n este impar, n «2p-r-1, atunci graficul este simetric: în raport 
cu uriginea uxelur de coordonate O (0, 6). Avem: 


TL eent ër erg (x), funcţia fiind impară. 


Dacă M (a, b) aparține graficului, atunci este adevărată egalitatea 
haft) şi, de asejnenen, egalitatea —b=(—a)!; adică, M’ (—a, —h) apar- 
Dm graficului. Fiecărui panèt de pe grafic M (à, b) fi corespunde: pe grafi 
simetricul M' (—a, —b) în raport cu 0 (9, 0j. 

4". Graficul oricărei funcţii T:R — R, f (x) x^, n par, este simelrie iu 
vaport cu axa (Oy) iar pentru n>0 are forma similară parabolei Tune Hu) 
[(x) -M, x e R {pre exemplu). 

Graficul aricărei funcţii f: R — R; f Gap, n impar, este simetric in 
raport cu 0 (0, 0) şi are forma similară graficului funcţiei f (x) —x*. 


Observaţie. Beni a verifica dacă. nofinnile recapitulate, ale acestei see- 
venale, au fast însuşite corect, secvența inwdiat următoare (fie că aceasta esle 
derulată cu ajutarul calculatorului, fie prin metodele clasice obignuile) ur 
consta din următorii paşi : 

i) Desenati, schematic, graficele funcţiilor date prin formulele y =s" 
y=x", x eR şi serieţi mulțimile de valori ale argumentului pentru care : a) Kee - 
tiile sint nule ; b) füneliile au valori pozitive ` c) funcţiile au valori negative. 

ii) Pentru funcţia dată prin fnrmmla f (x) oxi XER, compsrati TO) 
si F(—2) ; găsiţi f (—2) ştiind că £ (2) —32. 

iii) Pentru funcţia dată prin formula f(x)—x'"^ seh, compnráti I (3! 
gi 1(—3) şi găsiţi f (.—u): ştiind că I (2) —92. 

IV) Fie punctul arbitrar M (a, — b) opartintod gratie ului unei funcţii f. 
Dacă functia este dată prinir-unn din formulele y —x* sau y —x* să se previ- 
zeze dacă punetele N (—a, b) şi P (—8, —b) aparţin graficului lui f. Evidenl, 
pentru acest ultim punct este necesar un mie comentariu. 


7 cunt. Logaritmi (definitie şi proprieth(i bazate pe definitie) — lecție de comunicare, reufitati 
pentru autotastruirea atttomalizata. 


1. Noţiunta de logariti. Să considerăm ecuaţia expananțizlă 
ati, N28, 220, azi. (i1 
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Se observă và ecuația (1) nu are soluţie pentru N<0, denarece 
f: R — (0, o f(x) a* 


are valori pozitive. 

Pentru NB ecuația (1) are soluție unie delerminată, aceasta rie- 
wrgind din proprietatea de bijectivitate a lunctiei exponentiale. În figura 12.6 
respectiv 12.10 este prezentată rezolvarea grafică a cenaţiei nX—N, a1 (res- 
peetiv Qca «1). 


N:0 dm 


a vila aaa 
Fig 125. Graficul functlei ex- Fig, 12.40. Graficul (unetien ev- 
yonentiale a^ = N, a1, , ponenţiale A7 =N, £f cuc) 


Sulnţia ecuaţiei a*—N, unde u2»0, ic si Nẹ>0, se numeşte Jagatilinnl 
cuniărului real pozitiv N in baza a. 

Prin definiţie, logaritma numărului real puzitiv N în Daza n, uide at 
şi n T, este exponentul ia care Lreluie ridicată bazi a pentru a eBtine N. 

Lugaritmul numărului N în baza a ap notează Ja, N”, se citeste „opta 
ritmul în baza a al lui N” siu ,logovitmul lui N in haza a” și sé serie e == bea ÎN 

Üonforin. definitfiei avem: 


Inge Yi let i —4 ; doma Zig EEN Ee 


\vem deci relația : loga” «n. 

Din (1) si (2) rezultă egalitatea ` u PEN ch, NSU. 

Dacă in (1) punem x:s1, atunci aen yi emmforim cu (2) aven relatis . 
logat =l. 

Dacă buza a esie 10, atunci în loc de „hugi N” se serie dg N” şi sevilegte 
^Ingarilmul lei N in baza 10" sau „logaritmul zecimal al lui N* ; iar dacă baga 
a vsle numărul irațional e =2,71829 ... , alunci in Joc de log,N xe serie ,InN" 
și s citeşte „logaritmal natural al numărului N“. 

2. Aplicații privind folosirea definiției şi a proprielăţitor bazate pe va. 
(Peutru a nu mai prezenta răspunsurile şi comentariile corespuuzăl oare lr, 
fiecare grupă de exerciţii începe cu un exereitin model, rezolvarea celorlate 
fiind unuloagă medelului). 
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O RE 1 
f?. Devediti că We ==—3, 
R : Conform definifiei, avein : A us (egalitate adevărată), 
fnfavelasi mod, să se arate că 'egalităţile uemătuare sint. adevărate 1 
a) logat =4; b) loga dei v) li =—1; d) loga — =; 
2 10 Gu 

e) Jg pgs; (log 720 —6; a) Ingay- =.. 

SJT Y We? D Ba 3 4 
J^. Gâsiţi numărul N, al cărui logaritm în baza à este egat eu —2. 
Ht : Conform deziniţiei, avem log, N 5—2 es N =57 es N= 


În acelaşi wand, să se găsească N știind ei: 
a) lousN=2; h) log N——1; e) lgN ——2 ; d) Ini Azi c)IgN sf 
1 
D loge æl, 53 g) log Nm h) loga N em iR) past elo. 
WI D 5 


LU. Găsiţi baza a, a Ingaritmului numărului 64, duch Ing,fid ——4 


i ak? Tu. 4 
R pf =A er arii ce (Gil) € (Dj $2 2. fă "If 
In arelaşitinod, sà'se găsoască baza a:ştiind că: 


a) loga 27: bi log,1000—1,5; e) ci di lag, ER 
e) leg 224—325; D lo Q7 8) o; m log S li 

h) log, AS — t. 

4^. Găsiţi logaritmul dunes 8 în baza VÈ. 

Rz la ; 7X d “Vă zf ot = doo E mA Vu, Dec? bu pif, 


pila mod, să se determine uuzuerele :] 


i 
aloga: b) UM: e) toga 253 A) ligi LOT ze) logg 
e | i 


DEI | 


fi loga (RA) ; Di loge; n E 


WM. Găsiţi valoarea expresiel 100522, 
z 1e? m Qi 198 13. T 
d sicelași mod, să se găsească valorile expresiiler ` 


am10-7 5; n) OST ` oi Lg 5 : d) 1001, 
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U^. Care. din expresii are sens? . l 
ajloga 0; b) 0,00; t) ig G0; d) Mr Cid) eh logs (77): 
D Jos (—3p: p) doga (—4)7* ; h) Vig 2,5. 


7. Rezolvaţi ecuația Joy ——1 


R :logax —1 e x35 x= E A 


lu acelaşi mod, să se rezolve ecuaţiile : 


a) log 1 x23; h) luggsxe2 ; e) logo (lugg X) 
H 


12.3. Programe utile in procesul de învățămînt 


În cele ce urmează se preziulă o serie de programe, ente jol Ji ufilisate 
in pruresul de iîuvățămbii. Kle pot fi completste eu unele din programele date 
hic paragrafele anterioare ale pestii capitol. 

Programele de mai jos siut utile în cadrul orelor de slgebià, gewuetriv. 
fizică, pentru ilustrarea, prin reprezentári grafice, à unor funcții sau “Tetutuene 
fizice. De usementa, ele pot D folosite pentru verificarea canuștințelar unor 
grupuri de elevi, în privinţa despărțirii cuvintelor în silabe, a eunougterii rage- 
dintelor de judeţe sau pe alte teme. La stîrsitul exatninării candidati sinl urdu- 
nati autemat. supă mediile obtinule. 


12.4. Program pentru trasarea cercului irigenometric. 


Programul trasează veren trigonumelric şi caleulauză funetiile sin, tus 
tg. peniru un unghi dat. Unghiul se dă suh forma unui multipla k, de $ grade -- 
(PIE). 


S AT E 

sa MENEM, tk rase ja 

32 REM DAI IPL ZE * va 
1% Im E 
4n gsFePlt, 
29 FE $t 
M FOR cé TC 29P] CIEP P1738 
gc [EM ZI C SM ta. IS Daia T 
*9 NEXT A : 
va NME Sora 
Pat RURAU -22.0 
$0 PINA 22.25 
*0 BrëAu O, -39 
102 MOVE SO. té 
119 RUNA Zr Util 2 feb into! 
119 RORAH $, -*592 (il 
125 pecs Co 

V29 bf ACEL? or An ft" 
Ip4 PRINT ATIG ("bie ie 

159 SAINT SIERSCH BI 
Ue» PRINT ATI am, S "DI, um 
195 bar Arts, 
1209 PRIINI ACE 
139 fULNT etia H D Qoe*i BEN GO 
Lë 9A ACE 17-205 40051 
Ze PRIAT is H WÉINT 
aw END 
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12.5. Program pentru vizualizarea poziţiilor unor drepte care 
trec prin originea axelor de coordonate. 


d» drepte, care urmează a fi reprezentate, coeficienti unghhilari, MO, ai 
acestor drepte si limitele pe orizontalà ale ferestrei de ufigare (X1, X2). 


$ mur 

1o NER-VEZUALEZAREA FO£?1t11El 

20 RENCUNEI DREPTE CE TRECE 

30 REH*PRUN Qiu.U5, ÎN FUNCTIE 
30 REN DE COÉKÍCIENYUL UNOKIU= 
*6 FEn^LAN PaT ANIU) UNDE 

60 BEN Van? 

76 REM"VARTABULE UTILIZATE 

RO REM"K = NUNAN VE CREP «C 

90 REM"MiX) e VECTORUL ALE 

LOO REM^CARUI CUMPONENTE SINT 
116 REN"COCPTCIHRY Pt. UNGHYULART: 
Vë REM"LIMLTELE FÉBES TRE] 

1*6 REM*AFLSAYE $ tul MIA 

140 REM^STJNDA. Y23L1N) TA DREAP 
196 RÉM"fA, vi = LIhETA JOS, Y2e 
160 RÉM*L)mYA SAF 

200 PRINT *"3NTHODUCETI Mea 

230 PUT K. 

220 PRIR3 "jNYHÓQUCET] COEFICIENTII* | 


225 DIR Moni 

209 FOR îm) 10 K 

20 PRINT * ME*y To" hons 
2390 INPUT bin 


Programul are un caracter conversational, solicitind iniţial numárul k 


WT 1 S 
270 PRINT * IMTAUDXE?I Lint 1 ELEC 11,027 
200 INPUT Xi, 12 
2 Mn 


310 KEN mumen GRAF IARE 


20 Den '40,121, 20, 100 
330 Mi X3,X2.Y1.Y2 


JAG BEN: TRASA AXE: 91 CONTUR 
0 HOUR xN 


370 LS 
390 Col DR 


IO DNAN Q,v2 A 

44U PRINT AT t1.20:*Y" 
ASG PRINT AȚc19, 300 
EIER OU) 

539 FOR 121 Dv 

$35 PAINT AT «21. Vom dptaets "t 
S20 Firion 

$530 MOVE rint) rani 
$80 DAAH x2, nt rer? 
$550 MOVE R1.0 

595 VATNI b 

IT JF Un» THEN 400 
Sai 1F Vuë THEN Soy 


EM EU 

240 FOR J«0 TO U BTEP V719 
*70 PRAN RIeCOS(Uo R1u83N1 Y? 
ESO WEIT d 

«400 NEXT | 

"re END 


12.6. Graficul funcţiei de gradul doi, 


Programul afișează intr-o fereastră dată (X1, X2) o familie de parabele 
de gradul doi (Y 2A*X 42) cu diferiți coeficienti, Limitele verticale ale feres- 
irei se caleuleazü automat, 
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5 wit f 

1o PEn-ORAF1CUL FUNCTIEI 

20 RENDE OMADUL DOI 

30 WREn*Y-AwK*2 
BEn*vARIABILE UTILIZATE 


RER 
zo REN CARUI EIEMENTE SINT 

60 'REH^COEFICIENT1I LUI K^2 
-PO REHM*LIMITELE FERESTERE1 
LOO REM*AFIGATE à Bia INITA 
LLO BER: ET Io, Ciel, IMI TA. 
120 RÉM"DREAPTA, Y3eC1M1TA JOS 
130 REN*Y22L1h11À SUS 
140 hEN"KERÉARTRA SE CONSIDERA 
130 REH*BIHETRICA, DECI: 
ALO BEN: ABSCeti-ABS COH 31 
170 REM"ABSCYI1 Tablet: 2 
200 pd pa STRADALA Kn 


NOUT 
220 PRINT "INTRODUCETI COEFTCIENTTUS 
239 OIM Ak) 
240 POR îm3 TO K 
250 PRINT “Ateadu fana 
200 INPUT m 
270 NEXT 1 
260 PRINT “INTRODUCETI H 


S40 PRINT ATCT, 11 rteäeträr 

400 Per/20 

616 FOR lasi TO K 

1$ PRINT AtTiZNT TIT Léi LAN 
429 MOVE xi. AiTt0XUI*z 

430 FOR Jexi Tu 32 STEP P 


440 BRAN J.A Ite ^2 
550 NEXT A 

€60 Mar | 

Ton Ce 


12.7. Graficul funcției de gradul N 


Programul reprezintă gratirele u nei familii de parahole (Y =A (k)* X ^ N), 
unde A (k) este cocficientul parabolei cu numărul", iar N>=0. Programul 
salicită numărul k de parabole, coeficienţii A fk} şi limitele orizontale X1, X? ale 
ferestrei de afişare. 
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$ iE 
Lu REN*DRAPICUL FUNCTIEI 

a6 RER"DE GRAD, M 

W KLN YreAet-N 

40 REM*VARIABILE UTILIFATES 
Géi DÉR "Luna LE. PARĂDOLE 
OU REN hrK)«UECTORUL. AE 
Yo RE""ZAMUL ELEMENTE SINT 
Se: REM"COEEICIENTIC LUY AN 
zu NEMLIMTELE FERESTREI 
9 E IBATEa 2I tALUA 
110 HEM'STIRGA, 32*L 1] TA 

320 REM"LREAP YA; Y. 

136. REN aa DET 

140 REM"FEREASTRA SE CONSIOERA 
15V REH*SIHETRICA, DEC) 

160 REH"ABBCEI)eABSCE2 193, si 
LM RER*ADSCY E) ABS) 
Ain PRINT * INTRODUCETI Kri 

310 INPUT R 

220. PRINT "INTRODUCETI COEFJCIENTI]* 
290 DIM aX 

225 DOM Nt 

VAO FR le i TO € 

99b PRIM) "AL ITa 1874 

R&K: IMPUT ALT) 

E FAINT iu JP PLETLTI 

Ge JNEGT MIT 

2*9 NEXT 3 

ZPO PRINT "INTREO(IEÉTE ng 

$95 eUI X 


ENH"AETIARE GRAFICA 

s "TE 

leo VIFWP^RI ap, Län, 20, 100 
277 MINDIN XI Ic, YI. YO 
iae FEM AXE St LINNA 

Am PLAC X1 YI 

419 tew XYL 

su (IRA > 
«30 Dia v1. 
449 Dan 
450 DOC 
dou nRAU 92,0 

«16 neit il 

ABO DRAM 0:42 

5540 PRINT ATL, Qu ege 

Sp FRINE Ai (Lë, 30)" x* 

Da PRINT ATIL. 103 “poa” 

200 Pex/2o. 

919 FUR Le 1 TO r7 

AIS PRINT ATIS 11 reng Ta amiA T E 


em C81) ATIZS HI pni Di zer um 1. 
CE X ELLAE ERR QAM ED 


^H Zi to Ao Sieg 
ERY XRAM ALLEN SU UY 
et HET A 
^on KRAI 4 


viu PRINT ew ALT 3, Das” 


sto Ir ficis "ran 3 
Ze £p 


12.8. Graficul funcției logaritmice. 


Programul afişează graficul Innefiei legarítmice în bazele 2,.3, 


Initial se solicită limitele orizontale de afișare, 


-— —— E —À ——À 


RAPINA Feet TIF 
KML 
CELE à 2. 2,5. 1t 
VMETELE. ENTERVALU 13 
PE ^FEGARE 

1 > LIBLTA Sf CNOA 
Do» tinL fA DRFAFTA 


st VA FI CAIFLLAT 
ai ke fese yu 
ZA ese | LITA KY SE 


Sh CALZULA 
WS REM “FENIS v 


î Cea e vea nina 
1E RIMDE 


MI 
Din "At (ant ORAF ia 
INIT F 

VIEMPORT dé, 820,0. fr 


E ae aae Ai 
POYALAR ELUS? S 


Graficul Inncylei Jogaritinice 


win, Af, vo s LIH. ue 


4235 Rosu si 
449 Ee 10 
im Lc oi 
9 PREHI"DORETE ALTI > d 
vo Qr D li LTE LIMIE > corp 
**6 IF D4) IHEM to 
Sa poo z 
$05 pu - "CENESA al t DAT 
Sue SAM INDM NCORF C24 
ën Fett2-kY ps 
$10 FOR e X1 TO xz STEP e 
PO DRAN JA 061 J$2L OD 3 
«990 NEXT J B 


12.9. Program pentru studiul aruncării corpurilor 


sub un unghi dat 


Ve 


Programul solicită uughiul sub cure ute loe aruncareu, vitezu inițială yi 


vitezu vintului. 


ventru încadrarea graficului im liiteie ecranului, Program uxe 
scalare pe verticală, calculind inițial înălținiea maximă la care ajungė « 


wrpul. 


Tu meest scop solicită numărul de past pentru a valenta valurile parabolei în 
punctele respective, refinfud valoarea maximă. 
Se afisează înălțimea maximă [si bătaia. 
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1 INIT 

2 FEM'IROGHAN PENTR ST, APN- 

CARLI tut Loge 

9 PAINT "INTRODUCETI UNOHEDL e VII Ta.v- vite 

ur 

4 quU) m 

> PRINT INTREC CET] MAMAIA Vë PASI ge 

7 INPUT K 

d IN]? P. 

M Loplalzitu 

32 e SUC OS) 

33 BeţVaBINELI Lp 

34 Wr-4.905/k*9 

39 X2eke IS NGA i279, 81 

35 Biet (ÄIS, 42 Te t RSEN 1172 

37 PRENT A1c20, JU "H; z "af; 

39 FRINY AJ129, LISA, AX. sr 

45 GOZUR HOD 

fo XT 

46 tub 

1050 Y ăla r2 TMEN Ltcka 

1010 PRINT "LIMLTE ORES! TE: 

2) $$ 

IG Mazar 

$044 VIOL 40, 400, 20. 100 

1022 Sief 

31979 Meo 
IF ENR? PN itae 

HU , 

3120 ou 1190 

ja Rio o 

3390 INI XL XC RLURZ 

bow) MOVE X1.6 

Y263 ERAH 22.0 

Lä MOVE: o R1 

j2u3 Chit 0,82 

IK OW 

32260 OUD 1300 

1230 MOVE: aF 

3240 FOR 1-1 10 N 

29h taver 

3299 GUE 3909 

i370 MRAR aF 

1260 NEYT 3 

1296 EA ARN 

Lä FxAot^2veBun 

1310 PRETURI 


12.10. Caiculul punctului de intersecție a donă drepte 


U dreaptă poate îi definită prin specificarea coordonatelor unui punct 
M (x, y) și a unghiului pe care îl face cu direcţia pozitivă a axei Ox. Fie donă 
drepte DI şi D2 de ecnaţii parametrice : 


E X—X, +L, cos U, 
ni: : 
Y Y +L, sin Uy 


X—Xs--L4 cos Ug 
Y — Y4-4-L5 sia Ug 


Fie (Xe, Yọ) coordonatele punctului de intersecţie. 
In!ocuind în ecuafíile parametrice, se obține sistemul * 


Xg— X, +L, cos U, 
Yo aY HL, sin Ui 


pna: 


Calculul punctului de intersecție a două drepte 


De ai rezullà : 


SE 


nc Xa La eos Ug 
Yo = Yat La sin Us 


14 cos U,—Lg cos U-Xi—NQ 
L; sin Uj —L; sin U; — Y4— Y, 
De unde: L4 ((X4—N4) sin U4—(Y,— Ya) cos Ug)/sin (U,—U.). 
Aviad determinat Lu, coordonatele punctului de intersecfie vor fi: 
Xo—N4 14 cos U, 
Yo Yu sin U, 


RAB "CITIREA UATELOR” 
PRINT Rik) SECHER DadPTiL 0" 


„11.01 
PRINT *X2,12,U2(0RADE:* 
INPUT X2, An, v? 
LLLI *YESTASÀ PARALBLUSM üREPTE- 
NeABSCGI)-U2»71802 
TP puTODON TUS SO 
PIR "DREPTELE SERY PARALELE“ 


sro 

REN CALCULUL COORZONATELOR" 

RER “PUNCTULUI BE IMTERSPCTIB* 
n 12914100 

'P1 7160 
UE 
Deg [ArQ3-y2: 

Antsy 

XO»Xi eL eCOStU1 5 

Te»TI-LoS1NCUL D 

PRINT ‘COORDONATELE PUNCTULUT* 
PRINT *0$ IW'Brgerg Sin" 
PAIRT 
PRINT Yo 

PRINT Kn APISARE URAFICA? (ën, Bär 


VOS 14PUT CO: 

330 IF 8*)))«*D^ THEM 120 
195 syor 

119 REN *DRRINIRDBA GPATIULUI 38 AFt947* 
920 Tt1«n831x0» 

129 "2*"a85!TO) 

1390 1? T1>T2 TRER140 

133 TaT? 

340 TisZaTE 

933 JF TI«50 THER 149 

ée T120 

V9 DIT 

150 VIEUPOST 10,90,10,90 
199 VINDOO -Tt,73,-T3, Yl 

957 EK "TRASARPA AXZLOR* 
160 A0VE CL, 8 

t4$ DAAL tt,O 

1X0 BDUE o, 

179 URAN or 

t70 QEN STRASAREA DEEPTDLDR* 
(00 AIVE Xl-2eTEeCOSCU1 P, Y1 Zu T bAS BI Ut e 


LES DRAN XlegeTLeCOScO) », T] e2aTteSCRCQU? 
YO NOVE X2-2eT2«COSCU2^, Y2-2aT20 5 RES 
195 DRAU X2e20TQeCOStU2, YOs2uTJaS Ur UZ? 
200 MOVE ré 

205 DEAU xó.0 

210 MOVA xo.TO 

215 DRAY 0,10 

23 en 
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Dawk dreptele sint paralele numiturul expresivi pentru culenlu Ini L, 
este nul. Deci se va testa condiția de neparalelisiu Ul— Ud Ks. 

Programu! funclioneszá astfel : i 
1. Citeşte parametrii celor două dreple ; NI, Y1, Ul si N2, Y, Uz. 
2. "Testeazä ducă cele două drepte sial paralele. Dac dreptele sint pairalete 
st opreşte execuţia programului. 
Caleuleuză coordonatele punelului dé intersecţie şi apoi le afişează, 
Aiişcază pralie (eventual) rezultatul. 

La definirea spaţiului de alisal în linia 150, s-a avut in. vedete ca urigimes 

yi axele sistemului de courdenate să apurá pe ecran. 


w^ Ga 


12.11. Calculul punctelor de intersecție a duuă cercuri 


^e vensiderà cereurile delinite piu centru 3 yazi: CLINI Y3, Hl) w 
CiN: Y2, B2). Distanța dinue centrele celok dona cercuri ese : 


V= VOI EROI TIR 


Se va pela GeX2— X1 şi HeY2— YI. 
Feniru a se iulersecla, dintanta dintre cercuri Órebuic să Dr zin uită 
decil suma razelor yi mai mare decit difeienfa lor: | R2- H1| «Ds HI EZ. 


În cazul egalităţii, certurile vor fi tangente. Se petenzü cu Ul uihiul 
formal dr dreapta ce uneşte centzele cercurilor cii orizontala și U2 unghint 
fo mat de această dreaptă eu raza primului ci dusă în punctul de interse (ie 
dorit. Coordonatele punctului de interseație. Yar H: ` 


Se) CRI «os (Ul ea) 
Y —- Y1-E Hlesin (Ut 4 Fe 122) 
Unde: Et pentru pnnetul din stînga dreptei ce uncste centrele (pff din (1) 
şi — 1 pentru cel din dreapta. 
Peutru caleulul unghiurilor UI al U2 F«losim relațiile : 
UI e AIN (G/H), sau 2 dacă Hel 


U2zarecos (R1?4 IF—R2%) (2eR le D) 
insă uteeos va fi calculat prin lunetiu ATN, 
Propraniul funcționează in felul următor : 


|. Citeşte coordonatele centrului $i raza X], Yl, Hl pentru primul vere. 


2. Citeşie coordonatele eentrului $i raza X2, Y2, H2 peniru al doilea cerr. 


Calculut puuctetór de intersecție a dous cercuri 15? 


3. QuUesMe valora ini 5 (1 =punciul din stingu, —l ==c¢} din dreapta) 


4, Cakuleazá valorile G, H st D. Dacă mi e verificată condiţia : | R2—R1 | q 
KURIR? exceutin se npreste. 


5. Caleuleuzà unthiurile Ui si U2. 


B. Caleuleazá coordonatele X, Y ale puuctnlui de intecseetie dorit. 


n: amiei (evenluală) a rezultatnlni. 


e Ee genre berg 


CALEULUL. PIC IEL (8 


DEN "e P" e ceuPur svo Een 


d 


a 
zë Gin A511? 


» 


TFOZACET] CCCEODNA TELS. en inut $1 RA2A* 
PRINT: "PENTRU PRE, VRROCII NE A174, 


^ IUT fco viui) 
1 JF *1770 THEN Ga 


d 


PRINT *PFRTRU Ay TOEA CC ca, ca, Ri”; 


I WA) ` : 
ARIY “Rasa MÉDRAT| vA Sau RULA?” 
d r9 29 


REH *CALCULLL. MATEHELUR. GELT 


[AUI 
Lé ueTv2- id 
I VR GS) ems 


PE" VERIFICE. SEPIDITI LOR OE INIEBCEUT LE" 


If Dio înca ag 

LE PPOPT "EN Lat, 

PRENI "CERCEI LDENTICE** 
*f tu 370 

IF DAID EN t33 

IF D-vPaC3cRI-R20 THEN (ën 

PEINT "FACIDILE HU $E INTERSECTGALA ^ * 
oh tà ow 


PF" "CALCULAR. wën ut vir 


IU Lu EP 
IF Or: THEM 205 
ff i THEN 225 


REM "EA UL ut pelt U2- 


Lir ifto efe DDRIII /425P PDI. 
Uz-Pl/2 ` 

IF Lia THEN 275 

25 L2ASORe that? 

MeeAT L2! 

IF 11720 THEN 27$ 

[OUO 


s, EMINE -PUNCTELE DE tNEIUDISECTIE AU Crista fe ge: 
SEI 
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Däer Zeil ed 
"293 vevisRieS[Nt 


HATT 

sRazi 

synny 
IF FOM THEM 290 

5 


PRINT "DORITI AFLŞARE ORAFICAID/NP*| 


INPUT Ms 
IF Re«)*D* THEN Spo 


REM "$TABILIREG LUNLETIILOȘ DE AFpS«ug" 


GA 
VIEWPORT 40, lau, fo, vo 
Aaxt 


pex 
Uo WH. $42 
tier 
ATYl 
z-y2 
00 SUD $43 | 
9 JF fett THEN (Cu 
Tata 
WIDE =t. T-T, T 
MOVE -1,-T 
DRAW Y,-T 
URAH Y, T 
DRAN -7,T 
Iw TE 


REN “TRASAREA CEPCURELOR* 


J729PteP1 dit 
Barra 
mW BEA, ei 
FOR Jeu TU J Ster 
DRAH Ziebiet OU, vi -Hres?HC1 | 
a Ett 
263 FCR Ico J SEP K 
Kail Df^u viet, Vin: D) 
ar% MEXT I 
dë 


ARG RCM *JRASAREÀ AxELOR" 
426 


Sia DRAY o. T 

MR "OVE -T.-T 

7-26 OD TO 590 

525 

TOC NEM "SUBRULINA DE CALCUL A COQNDONIE1 HAV IHE 
525 Rt" "PE U DIRECTIE DATA" 
KMA 

$49 TABE ARI 

530 JF'T*-AUSCR-R2) THEN $50 
999 T-ADS:8-R2» 

$60 YF Tr«oDSHA-HE) THEN 79 


£25 TARSIA RI! 

2O IF T*ABS:B4RZ2) THEN 590 

272 TASIE? 

Gan RETURN 

$50 PRINT "LIT: ALTE CEKCURJID/N3"1 
eU YNFIT P3 


am IF Rasa TMEH OSÒ 
au Ei 


12.12. Calculul tangentelor dintr-un punct la un cere 
Fir ve dreaptă D de ecuații parametrice : | 
XX i. tos l 
Y=Y, -+L sin T 


tigicului tangentelor dintr-un punct Ig un cerc 159 


unde: X, Y, sint coordonatele unui punel precizat al dreptei, T direcţi 
dreptei, iar T, este distanţa de la punctul (X4. Y4) la punctal curent. 

Fie un cere: C, de cent Col Yo) şi rază R RS wcuaţie :] 

Det ef =R 

Pentru a se obţine tangentele din punetul (N,, Y,) la cercul C, se vor 
inlorui X şi Y dati de ecuaţia dreptei D fn eenatía cerculii. Se ohtinc ` 
O | 124-21. (H cos TA-Y sin T)-- Vf--HI— n? —0 
ande s-a nolat AU —X,--Xo şi Na Y,—Y,. 

Se presupune că punctul DAX este exterior cereului C, deci: 
IPF VES RA, Condiția ca dreapta D să fie tangentă la cere este cu ecuaţia (1) 
re grodul doi în L; să aibă soluţie unică, Pentru aceasta trebuie ca : 


CH (H cos THV sin TE V2: HR HS 


la rezolvarea acestei ecuaţii se disting două cazuri ` 
a) Mail. Din (2) se ohfine: 


PTSTA 


OK Zant -4 Ti 


H 


De l sarta (3; |. Tulocuind mai sus se obfine: 


ki Ci 
es rr V TREES. 
Di 
tan (r— F FR 
d Ji (ASSEN 
E N +R 
$ deci Tyg —anelg er Larl FIRE RR" 


b) Vx. in ecuaţia (2), împărțind cu V rezultă : 


sin (T-1)— 2 Ez i 


x A E 1 
unde Foesle unghiul pentru vare. Tun Fa. 


Piucediur ca ta cazul precedent, se nbi ; 


Ty -—aretg Ae targa E MEE JE 


^e observă că iu ambele cazuri se obtir două unghiuri T, corespunzá- 
toare celor două. tangente la cerc. Avind direcţiile tangentelor determinate 
yrinir-nna din cele dană metade, solitia eenaţiei (1) corespunzătoare unghiurilor 
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la si Ja va lit byg =H cos Jagt V sin Tja). Coordonatele punctelor: de 
tangentà se vor obține inlocvind valorile obținute pentru T si L im ceuatia 
dreptei D. S-au prezeatat cele doud cazuri de rezolvare a ect 1a Liei (2), deuarece 
este. posihil ca punctul Gu. Yi să se afle pe ucreași verticală sau u zo al 
cu centrul cercului, 


În aceste condiții va rezulta H=0 sau V=0. (Evident, H şi V un pot 


fi simultan nuli). Prográmul va testa dacă Hä. In acest caz, direcţiile tangen- 
telor vor Ti determinate prin prima metodă ; altfel se va alege ecalaltà sdutie. 


Functionarea programului : 

1. Citirea datelor 

at ecutru! şi raza cercului (X9, YO, R) 

h) punctul din care se duc tangentele (X1, YU 


2. Testează dacă punctul dat este în interiorul sau. pe conturul cerculni, 
În caz afirmativ se va afișa un mesaj corespunzător si se va opri execuție. 


3. Sc determiuă direcţiile cclar donă tangeale şi enordonitele ponr “ta. 
lor de tangeufá si se afişează rezultatele. 


1. Afisează (după dorință) grafie soluția găsită 


REM “rpouosessasasannoneouvospaeasenpaunev" vm UP UL reni N Lag 
REM *« CALOIAN DREPTELOR LE T&AOEWTA a” 196 CÂT VLemBStasi 

REM ve DIM*R-UN PUNCT DAT LA UN CERC DAT e 199 (F Li sasstyl! (EN 208 

REM "bvesecocccsu rrr o sovve se socosas asc uuo" d Zä LET | 54ABS €Or11 

REM “CITIREA LATELAR* um JE ato THEN 205 

pia Dëst) DUR 

PRINY "JNTKODUCETÉ Mee CENFRULVI" D AE 

ERENT äi RAZA ZSRCULUI (70, re 229 

INPUT LO. YO, R 227 EMO 10,90, $n, 96 

PRINT INTRODUCETI COegtraafE E FUNCIULUL INTE WIND ala, Li LL 

mame? FIT REM *TRACAMEA CENCULUL- 

LET H-A «xo NOE WR 

LET Vevlovo "FOR Ver YO Zeftebira STEP Ptr 
A tET D-SOR(va tH? ` DRAW XoeReCUSI EI, YOMAv INI Eo 
2 wt" “SE TESTEAZA WMA PUNCTUL (EL, YI 


bE E EEEIEE RS 


WEST T 


^ REM ESIC IN TATERLOR JL CÉRCLEOL* ALM *TRCAAREA TANOEHYCLÓR- 
Sp poA THEN 75 mÓNE i.t i 
Je D'R TefN 65 DA 
^ PROMT "PIAN. ERTE JNTER IS LERCIN UI" uz 
DE SAREA Ax[:0R DE CODRDONATE* 
FERDI "PUNCTW. ESTE PE CENG? HME Hip 


Dën LI-0 
^ REM “PUNCT ELISIR CERCULUI” Ra o. -L1 
NEN “CALCIAUL. Pa ELO DE Tobagtnfa" It OA) td 
Z LET R1oSOR ING äist "v 2*9 tt 

LE Wë THEM 


Kg 


voro ine S 

Tien? NOUIS ATNIRELAR 

nite AS SATHEREZRY 

HeCORITLveyettNCTIM 1 
Merntorta)sevz]MITZT 

et IO Cos Cr I) 

KÉHRAAU 

Zäentai Dec 12: 

d ET VMäevi-LäzwgChsertz 

346 febr acirOADONATELE PUNCTELOR DE TANOENTA SINTI* 
ES PAINT "Ara ft, YAn UI 

L30 PARJAT "XxPans2ovtvDe7 rug 

125 PINT “MARITE AP TUAKC PAFWA 7 MN 

$49 INT it 

Léen (E Neriie D THEN 200 2d 
147 MCM ^DEFINJPEA SPATII: UTILI zATOA" 

40 DEn äi A PORTUALE pt Leia PETRU ^Fi^aRE* 
LFT Lia: gät 

WoricAP2! vio THEN (on 

LET Liszt 


Calcule cu polinoame ` 18: 


12.13. f Zen cu polinoame 


Se va studia împărţirea unui polinem : a,x* pagx" 7! e, kën 41 prinbr-ua 
polinom ireduclibil si unitar peste R, anume cazul trapărțirii prin x-Ba și 
Ti-ppx-kq. Coefivienţii polinomului eit: bx" -b;x"3-p. . . Fb Vor fi doter- 
4«inati prin identificare în relaţia : 


(bx? box" 7 4- . . basi) (X-8) -D,,5 max" pasă e 4 o tansi 
ande tu basa s-a notat restul. Rezultă 3 


b,-8 și b,,;—a,—aàby, pentru i231, 2, ... DEL, 


Programul de valen! al coeficienţilor citului si restului este dat mal jos. 

Similar, se ohfius sb preyrümul ce determină cîtul şi restul împărțirii 
polinorauful ajx?-Fa;x 71-5... ës ua prin polinomul x*-+px-+-q obfinfndu-se 
eftul si restal rx--5. 

Programele de immpărțire se pat utiliza în descompunerea In factori n 
polinoamelor în gisirea rădăcinilor unui polinom, fa calculul valorii unui 
painom. 


REN engengensepubhRRRRRRNMERbaBRRk UR Y REJ "essweeceossoseS obs PPeAANBDRRR 
HE “o INPARTIREA UNU! POLINOM DE = 18 REM * tRPARTIREA UNUI POLINOA 5E s 
RDN -e6fAD N PRINTR-UR POLINON e 15 RER * GRAD N PRINTR-UN POLIKÓH » 


RER “ODE GRADUL | s» Xe a ZO REM * DE ORADUL OOL 
40 REM "essesugruppnnggpegpeapggaeHee SS REN "anaanasasenecuac4ue enean RERS 
60 PRINT "Nar, 30 PRINT "Mare 
70 VE? N dé YNPUT M 
BO DIR AtNe29,D0 EI 45 VIR RIHI. BAHI? 
POF lea Hoi 20 PRIK *GOEFICIENYII PDLINCRULUP ° 
100 PRINT *A(C711)^ 99^, ep PER 193 T9 Met 
"o — IMPUY Aci) 70 PRINT 7At") Ia t3 
130 KEXY | D $0 INPUT At 
130 PRINT "A»*, OD MEAT i 
140 INPUT A AGO PRINT *COEP. 1JV1T0RULUI^ 
130 $t1)«0 119 PRINT CAtD4PeXxen* 
140 POR 1 « 2 10 m? 320 PRINT. "Pa"; 
190 "Stiiséit-i-Aeft lat) 130 TER: P 
190 WüXT ) 142 PRIN? "dar 
185 REH 150 INPUT 9 
199 REM “ARISAREA F.62ULTATULY) 299 Bi?;20 
200 AER 210 Dra 
210 POR js2 10 m: 220 FOA Jaa TO Me? 
320 — PRINT "Di-jji" sonz 330  Silaeati-2i-PuBitoa3=08Dt4-22 
220 NEXT 1 250 NEXT | 
240 Pat? PRE IBIN?) 279 REM "ARESAREA REZULTATDLOR* 
750 £ND 260 FER bea TO Hel 


370  FRiNT "0v*i1,* 3e" DCI 
285 NEXE 1 s 

"270 PRINT “APISARG REST: £Xe$ * 
Mo PRINT *Ez^jfthbeza 

310 PRINT *de*;DiReg)eFaBuled 
22V GND 


12.14. Rezolvarea ecuațiilor algebrice prin metoda Bairstow 


Beuațlile algebrice, f (x)=0, unde f este un polinom put fi rezolvate 
prin wetode aproximalive. În enatinaare se va descrie o metodă care constà 
in descompunerea polinomulüi în produs de polinoame de gradul doi (metode 
A — Wirromigulatorul personal eMId — voL II 
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Bairstow). Fie polinomul f(X)e—a,x?-Fagx"-1-4-...-Fag,i și i(p, q) două 
numere. lmpárfind polinomul prin x*--px4-q obtinem : 


Rel net 
$ ax (Y bi ec GLpstokris 
ten] - 
Prin identificare se ubţin cneticienții b, r şi s in functie de p şi q: bye bes și 
Di bissa-a— pb (Dia, pentru Zeientä 
(2) iar, T=hass ŞI 5—ba,s-- phas 


Va trebui să se găsească p si q astfel încît: r (p, qi —s (p, q)—0. Acest 
berg revine la rezolvarea sistemului : 


r-- Ap E vagi =0 


g-e EI a, ER ze 
&--AÀp ap An jd =Q 


ér usa De T " 5 " 
Pentru calcului Jui 3 5€ vor calenla dy peiu recurent din expresiile 


ebţinute prin identificare (1). 


Ain Ei E 
T we—b,Q—p Liz SEKR 
E Wei Ao dA 


Not ind a pentru 1 &ixn--3, şirul e, va Ti: came și 
Spmbou—pe,a—ge6,s peniru 3sisu+3. 
Din formulele (2) se obtine : 


LR Q 68 
dp ed şi dp SH Gan 


Pe de altă parte, derivind formulele (1) se obține : 


d . PT , ós 
Zu Uh deci E31 "Cou ȘI Ei za ag LD aah, 


Bislewul (3) se va rezalva prin metoda Cramer : 


d 2:02 pg tenet (Co ioc Duos) 


Ap- rear eerta si Aq - bara Messe Partes " 
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Se defineşte apoi un sir de puncte (p, o) care, în principiu, converge 
câtre an punct (p, q} tacit: x?--px-Fq divide pe f(x). Praetie, uumărnl de 
poncte (iterații) este limitat la k 160, în program, ulitizîndu-se ca condiție 
de oprire : 

iAp| +l Aul 


<E 
Ip! [a 


{s fiind lunt. 10-* in program). 


Ecuația x*--px-Fq-(0 exte apoi rezolvată in C folosind formulele uzuale. 
mtl 
Pregramul continuă eu polinomul cit V, b?ti, ducă gradul situ este mai mare 


icd 
dscit 2. 


£19 PUB ClLTIMUL pAITOR* 

239 KEK 
232 th Kep TREH 430 
CIU x57AC21/8012 
eys te e 

to INPUT M eta Ou ei? 

95 DIN AGO 12, BINEI, Cash adi CATI SEN 

ICQ FOR 191 TO £30.PreAM 202001 

110 PRINT "Att, putt: a aa 

120 . INPUT AID 4e0 usva ara 

430 OKT I e$» ATAN 

150 Po 477 RH "^pioLtL9s€Ra PL. Ar I2] 4o dro" 

139 09 «rd FEil 

160 *7190 LD Drew de 

163 He 931 700 iF 3 Then ISa 

170 ER * TEST NSUPRA GRADULUI 249 ns2ür) 

180 REM 715 6-2 

210 IF H ie d TRUR $70 713 Xsi-p Di2 

220 REM “CAUTARE P si a 225 vasun (0 

$332 REM 730 Xet-F-:/2 

240 REN *"IATTTALEZARE CONTOR CICLURI 733 UGZUB DOG 

Ze ben 240 RETURN 

280 1F A1 THEN 999 223 asser? 

290 eM 


300 XEM “CALCULUL COGFICIABTILOR 
2:0 KEN *BC12 $1 CIL)” 

340 Dii 

322 812170 

324 AHA) 

335 ctă:=) 

339 Fep jiet VÒ Med 

Ma s üOtenatt-2i1-P»Bt Jj» efie E22! 
KGR EE Dk De Ad L6) -19-UnEt [025 
360 HXT £ 

120 REA "CALCUL DP SI Dpr 

389 DER 

270 x-ü HCH 

292 veDeiea) 

394 Z2C(N93? 

$96 YeCcN ez) 


gza 


Y^2 "HUN Q 
FRIET t-6tYivM* 


Det är, fa fett 

459 IF D-O THEN 990 

420 a=i2ut-Xat27D 

ASQ ci-recgatepaT)ețeT)/2 

440 REM *NOJLB P SI o" 

425 PaPea 

429 0-6-B 

460 FrCADZUR2 *RBSIBEE/CASSTPOSAQS QD 1 
AP) SF F^»E THEN 200 

490 REHN “S-A GASIT ROLIN. FAUTOR* 
405 REN 2 

492 GUSLB 679 

$40 RER *INLJCUTREA POLIRORULUI * 
919 RER 

430 beti-2 

$30 FOR 1-1 TO Bei 

$40 — At)osBilez) 

$50 MEXT I 

$€3 «0T8 170 
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12.15. Metoda celor mai mici pătrate 


Metoda celor mai wici pătrate. este o tehnică cureulă de determinare a 
anei curbe y=f (x) ve aproximează o mulţime de puncte date: 


(Yi. Zu, (Ya. Xe)... (Ya. Xa). 


Metoda constă In minimizarea sumei patralelor „distanțelor“ : di--d2- .,. 
cB, unde diy; f (XQ) este distanţa între ordonata punctului dat şi 


cea aproximată. Metada este aplicată frecvent pentru funcţii expunenţiale 
san polinomiale. În toate cazurile, metoda necesită rezolvarea unor sistemo 
de ecnaţii alpehriee liuiare, mecunusentele fiind cocfieientii eenaţiei curbei, 


De exemplu, se doreşte aproximarea a M punete date prin curba y —ax*. Pon- 
tru aceasta trebuie rezolvat ua sistem de dauă ecuații e necunoscutele a ai b. 
Ecuațiile se obțin prin loguritinarea ecnăţiei y=ax* şi aunlovea derivatelor 
parțiale în raport cu [og.a şi bh: 
M MC 
Me log at Y (log x) bea Y loj y, 
iwel ial. 


M 


M H M 
($ log xj IER (£ (log wr h= D (loga > (log vu 


Aceste ecuuţii siat. liniare în log a și b. 
Dacă se dorește aproximarea prin carba Yacht, atunci Lrebnio sè ve 
rezulvo sistemul : 


M M 
M-loga+ (X x) ke A log vi 


M M M 


zx] 


Pentru aproximarea printr-o Tune ie poliuom ` Y 2C, 4-62 X HP. PC. aX". 
chelicientli C, se vor ebtine prin rezolvarea sistemului : 


M 


M M 
MC. (X x) Ce... [S al Cast =% Y: 


M M M M 


en = weg een ont ban op zen sio ou pen aie qre mo em o aie ace ass oa soa caa om mm 


M 


M » M 
à el SES (X x] C+. t (5 cl È LIE 
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Toate aceste exemple conduce In rezolvarea unor sistome de ecuaţii liniure 
peutru rare vam utiliza instrucţiunile matriceale disponibile în limbajul 
BABIE, 


Kaemplufiüe progrum 


Ea gorele găsirea unei funcţii (putere, exponentintá, sow un polinoru de grad mal mio 
decit b), cosc uptoximenzü cel mat bine un număr de puncte date imuximun 100). Coordonatele 
Xy, y, ale punctelur vor îl comvertite în Jogatitzsil lor de câtre pruyrau, dacă va fi necesar. iNumá- 
rel de puncie dete şi tipul curbei de aproximare fiind vuriubile, se vor utilizo facilităţile de 
sedimengionore n tablourilor. 


Programul +a finprimn ecuuția vurhe) de aproximure cu cocficlentii calcului, lista voor- 
donitelar Guiot date și lista valorilor funcţiei iy 44) cu 1e aproximenrá, precum gi eroarea 
€um» (sumo pâliateiut). Vutoarea rot? va fi utilizată pentru alegerea tipului funcţiei de apro» 
sianure. Variabilele utilitate de program sint urnifitoarele: 


Xæ vector de 160 de clemente co Ya conţine valorile x, introdusa 
Ze, sector dc 169 de clemente Care vo confine valorile y, Inttodusc 


Ae antice de 10 linii şi 10 colonne ce va confine coeficienţii necunoscutelor. sistemului de 
ecusţii liniare i 


Me govern matrice A 

Ban veriur de 10 clemente couținind uecunoaculela sistemului, 
Be scolar de 10 clemente; ce contine al dolicoz memteu ni sistemulut 
Bee uumdruf, de puncte 

We vorlablá ce indică metodu de aproximare, dorilà 1 


5 =0 pentru functie potere y=ax® 
=? pentru funcţie exponențială, yeact* | 
Ke22, 1 ...,10 pentru funcţie polinom; g= Y Gust 
Wis munüni] de ecoatli siinultone iei 
Kl= dará N—( su 1 
NIN ducă N2, 3, ,,,/10 
à Prapramut funcționează; estiel 


. [£ttegte datele 
u) Citeşte M valuri pentru SC ai M vulori pentru z, 
b) Citegle enbonren luf N care dă Upul curbei de utilizat 


- 


2 Calculenzi log x, și log gp dncă "ect, sun lop y, dacă Nei, pentru 1—1, 2, ..., M. 

3. Ealculeaiă elementele tablourllor [A şi D, utilizitd icnuulele corespurzilonre curhel niae 
€. Rezulvă sistenul de ccunttL 

i, Afitcorá ecuntío' curbei 

4. Cuiculează valorile y ix) pentru 1—1, 2, ... M 

7 Caleulul erorii, numa pátralelor distanțelor dj--d24- „a-i, 


& Afişarea caordonatelar zx, y, şi a valorii funejlel y (x), pentri jet, 2, ..., M, apaul affqurea 
erorii. i 
De notat că dată Nm sau 1, trebuie reconvertite valorile iog y, şi Jog x, in y, şi respectiv 
i» oi, 
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9. Se reprezintă grafic papctelo (xi, Yı) ŞI apoi se trasează curba cara uneşte punctele de iater- 
polare calculate, 
10. Dark se dorește o uouă rulant cu aceleași dale, so revine Ia punctul 1.5). 
Jnstrucyuniie MAT ZER din Melle 209, 295 realizează redimenstonarea matricei A p 
a vectoralul D în fiecare noui execuţie a programului. Tn liniile 370 şi 375 tabigarila Rei 0 sit 
implicit redinienslonate pontru a corespunde matricei A şi vectorulai T3. Rezolvarea sistomulni 
de eet este substautin! simplificată prin utilizarea instrucțiunilor matriceala (Halle 378 


FEI 


Se 


xm 
E 
FEE 


| X11005,v0()003, 241725 
m "EA TOREA DATELCR" 3 
7 FERENT "CIE FONCTE Bert 9" 
R PRINT ren" 
9? Tuut n " 
16 PRINT "JMIGEODUCETI ORZOMATELE vr 
Lt MAT IKBUT vin. 
Lë PRINT "INTRUDUCL!] APSCTSELE »* 
33 WAP IPIT xi 2 
“CITIREA DAIELCA" 
t "INTRODUCET)NsO PENIHU POTEREF 


Sua 
m 


1 OI Nei FLH PORTAE LALA” 
17 PEINT" Hk, Vtt PD END" 
14 PRUT "Ra" 

"^ pupe „tă 


i00 RE "CALCII, Acea G3 (féier 
z9 REM "DACA E NECESA” 

120 IF Nyel THEN 170 

233 PO? let 70 m 

sar Y13XuL6Ot Y 4 T3 * 

sas HExF d 

YU IF Ne) THEN Y 

195 FOR 12) 16. 

ire MOLLIT 

jen NEKT Y 

170 REM "CALCIUL nATRIGEY Ar 

175 REM *2] A VECTORULUL b* 
I 

1?« IF N]?el THEN X09 

195 ` Nix2 

Zu MAT As ZER, HA 

ZOT MAT Te2ERON]D 

a ALE th 


FIR ei ic H 


ET S408 ES cho ES E] 

20 — "EXT K 

290 fute ani TO Di 

249 S2bt-Ar? 

AC IE SFN Tut $45 

I TESINI PEN 263 
Ld MS. HIS 

Se WEIS A 

zn IF bam "ën 205 

275 FOR Mi TO M . 
259 Dni »-Dép3 I YRI ZS b^ (Die t» 
26s Li Li 

20% KEST hj 

28e FOR Key TO ^ 

257 . DSDM 

£G5 NEXT E 


$90 RAB 
$60 REN "hEIOLVARTA STELL: 
365 REM 


PN N aaa 
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270 HAT De font 
275 pl Zoff 


SE R 
cfr “TISARIREA ECUAYÉET^ 
$20 AER 
930 1€ Nbr THEN 450 
400  CizzxPiCct) 
dâr. IF gei THEN 420 
4 PRENS “FUIEPEA Ye" pCLetwE* tr 0423 


f Got AC " : 
az  FRIKI "EXCONEHTLAUA Va" cC 13 EXPL C (224 See 
Ka che KE 


n IF Citera THEN 445 

425 PRINT "Ph.THOK VerrëtiitC(äh axe 
Prts asu 

eg, Es ve Ya"tCU 1825900234 sarea 
goe IF Hei THEN gë 

ap Faik le? TON 

dean ifo Celidag THEU 47% 

an^ EFRINT Ctfor" og T- Ia 

LE COTA 439 

ars CRUNT "e “SCI AEE itat E Inda 

do RT TI 

40^. PRINT 

420 REN 

sa REP "AF TSAREA REZILTATELAR” 

Së n£n 


GIN TP Miza THEN 245. 
516. COR Lei Ten 
LEE TATUITEI 
ner? 1 
iU Nei TURN SA 
Fri Tei TO M 
xVtyeExPAXCTIA 
next $ 
ERNY 
EINT OUATE "VUEN Air 
^ fen 
tuk dei Tor 
IF ez THEN 203 
IÉ Nat THEN $0% 
AE 
OII 3 
VIE LoE IPAE camee 
EE 
visto 
FOR J-? NN 
ALSK reci? 
NEXT A" 
Tax$4A(yaE If-vi)^2 
Fai NT Yep. Yl 


„38 PRINT 

43% PRINT “EROAREA”? S 

dach REM “CALCIULUI VALORILOR: PARIME” 
€41 REM *PENTIRU CELE DAM COIRDORATE^ 
Cap säi (9) 

YIPaADS CO) 

FA Iz tè M 


TF prega THEN $70 

Ut-AbÉ CO (i 
Lid Eee MAE THEM 690 

U2vAESUCUL ln 

EXT 1 

S MINN Zant, UL, -URLU 

Ch TEDW 

» INIT 

FUR fei Ton 

MOVE ein, TY 

DEAL ZIL. 

NEYT T 

RELE X115.21102 

Fi Ju? TO Wb —- 

d a ip, EI) 

d NEXT £ 

^ PRINT "JhRIRODUCETI VALOAREA i PENTRU" 

746 PIKNT 'GPRIREA EXECUTIEI” 

747 ët S 

J48 Ip Sc) THEM 1$ 

"290 END 
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18.16. Transformata Fourier rapidă 
e Wransformata Fourier constituie de mai mulți nni un instrument mats- 
matio utilizat în numeroase domenii, ca de exemplu în optică, acustică, fizică 
snantică, telecomunicaţii, teoria sistemelor şi a proceselor aleatoare etc. 
Fourier a demonstrat că orice semnal periodic poate fi considerat ca e 
sembinafie de oscilații sinusoidale: de frecvențe fO, 2ID, ATO ,.. Astfel, dacă 
= (t) reprezintă amplitudinea semnalului în funcţie de timp, x (t) se poate scris 
ea suma unui număr onrecare de funcții siuusoidale. Droarece pentru fiecare 
semnal, fazele inițiale nu sint identice, sim at devine sin eat Leit 


sin (ot--o)- din «t cos g-Fsin p togat 
aude cos 9 şi sin o pot fi consideraţi coeficienți. 
Astfel, toate funcţiile periodice se pot deserie în felni următor s 
X (t) Apn; sin ot-]-b cos wt 
rag sin Det A be cos 2ot 


»-]-83 sin cot -- ba cos Swt 
4T... 
Ze 


ENN.. : 3 | 
uade: e c mnf (T este perioada gi f frecvenţa semnututui) | 

8j Bn, on by, Ds s.s sint constante care reprezintă amplitudipea tie- 
văzsia diu componente; : 

Ag este valoarea medie. — E 

Această relație reprezintă descompunerea În serie Fourier a functiel 
petioadice x(t). În continuare, problema principală éste caleularea coeficfen- 
Hier Ae, n, b, zs Da, ..., tare se numesc corficienții Fourier. 

Deonrece A0 este vuloarca medie a semnalului periodic x (t), acest coeti- 
elent se calculează imediat cu relația : 


Fourier a demonstrat că ceilalți uceficienţi ee obțin din ferivtele 


ET 

a, = T x (t) sin motdt 
e EE 

b. TL x (t) cos notdt. 


Se defineşte transformata Fourier n unui semnal continuu x(t) prin 
fatagrala 1 


X fie Na x (t) e Sandt 
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Parametrii t și f reprezintă In general tinipul si frecvenţa, dar foarte bino 
acest ealeul se poale aplica la a mare varietate de fenomene unde t şi f pot 
seprerenta alţi parametri, 


Transformata Fourier inversă se defineşte prin relația 1 
C één á d 
an=) X (etar 


Prin utilizarea dispozitivelor numerice se obține adesea un semnal discret 
x(n) priutr-o esantionsre A semnalului initial x (t). lu acest caz integrala. 
Fourier definită mai sus poate fi înlocuită prin transformista Fourier discreti e 


N- 
QN (KO A x (n) ënn 
eg 


wende kee, 1, wn N—1. 


Multimea celor N valori x (n) constituie n reprezentare discretă a fune- 
tiei x (t), iar cele N valori X (k) o reprezentare a spectrulvi X din 


x (n) <> x (t) 
X (k) > X (f) 


Alger au tronsfurn:alei Fourier rapide permite reducerea timpului do: 
execuție a unci Urausformale Fourier discrete, 

Transformata Fourier discretă a unei secvențe finite de valor (x (af. 
Denel poste Ji prezentată într-o manieră mai practică a 


N1 
X (k)= 3 x) wm 


ande 
M d 


Aceustă relaţie arată cii pentru o secvenţă de N numere o evaluare directă 
necesită (N—1y* Innulfiri şi N(N—1) adunări. Pentru valori ale lui N, de 
exen:plu 1060, ca ordin de mărime, un calcul direct implică o cantitate foarte 
mar de calcule, chiar si pentru un sistem puternic. 

Frineipiul fransiuu matei Fonrier rapide constă în separarea secvenfel 
initiale de N vaipri in demnă secvențe niai scurte ale cărur transformate discreta 
pol fi combinate peniru a produce transformala discretă a secvepfei de B 
puucte. . : Së 

Astfel, dacă N este par şi secventa cripinală u fost împărţită în donă see- 
vento de N? ponete, ede necesar un număr de înmulţiri de ordinul N*/2 pentru, 
a cvalia transe mata discretă pe N puncte, Dacă. N/2 este la rindul său per, 
atunci secventa de N72 valori se peate de asemenea împărți în două secvența 
de cile N/4 valori fiecare, pentru care se calculează independent transfor- 
motele şi preceden! ponte rantinua, obținîndu-se de ficence dată oreșteren vite- 
zei cu un factor dr aprexiiativ 2, Dacă N este o putere a lui 2, procesul se 
poate repela pînă la ralelarea în final a !rensfermateler pentru două puncte. 


Programul BASIC prezentat efectuează calculul trunsformatei „Fourier 
«discreto peatru'un semnal definit, introdus în liniile 170 la 200 : 


* X (n) —siu (am -8,595/N) 
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ande nel, 2, ser N 


IM 


rot fap | ba 
(ue DC VALCRI DISCRETE 4 "iN 
TE 


95) tezei 


Cn" 

fiis 
Seem 
[^d 

Oe A THEN 220 
4 d 

E ti 

1^-1*L3 

tirfc12) wuP-0r 1929 


T2-RCI2) «UB OCLS2 «UP 
&2)ep7-TI : 
fit) epo» T2. 


RITR NTI 

4 Caper 

4960 Kart 

sob UJ COUP tigaia 

fio 26442 »H6 CO 
'$20 UU? 

Sen MET A 
"SRO HEXT it 

Co Fut CO Vd M : 
SPU — NOD E ROOARIEO P etO CO DLE 3 

GO HERT K 

die PRINTS e e 

ee» PAINT" K RE^. moms ANPLITUDE" 

A ES se aa MN 1 

5M dei Ot 
i Zeit rr" 7 T 

: TRI Alex eee P? Y, 2HTC39000 V, 177 ugi egen? 
zy FRIT 

ef HET E 

895 EAD 

i 
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Pornind de la secvenţa de N valori x (n), sc generează donă secvențe de IN/2 
puncte fiecare x; (n) si Xs (n), prima contínind termenii de rang par din see- 
venia iniţială, iar n doua termenii de rang impar: 

xı (n) «x (2n) 
Xs (n) =x (2n--1) 
unde n=), 1, 2, ... N/2—1 

Se poate aršin cå transformala Fourier discretă a secvenţei iniţiale se 
serie făcînd compunerea Lransformalelor Fourier pentru cele două secvenţe 
inițiale x, (n) 9 xa (n): 


X (x) 2X, (1 -- Wk Xe (k) 
unde X (k), X, (k) si Xs (k) sint transformatele Fourier discrete ale secvenfelor 
x (n), x,(n) şi xan) și: 

WE o HORN) 4 


Datorită proprietăţilor de periodicitate ale Lransforimntei Fourier, relaţia 
precedentá se poate serie de asemena : 


X (k) =X, (k—N/2)— WE Xa (k—N/2) 
penttu k euprins intre N/2 si N—1, iar: 


Wë = Wk Wi S WY 


12.17. Simularea salturilor unei mingi 


Se va descrie miştarea unei miugi de cauciuc care sare sus-jos sub efectul 
greutăţii proprii si în acelasi timp se deplascazá pe orizontală cu viteză con- 
stantă, Se presupun date: înălțimea inițială de la sol (11), viteza nrizontală 
(V) si numărul de salturi ale mingii (N). Se dă de asemenea cocficientul de resti- 
tuire (C) definit ca raportul vitezelor imediat după şi înainte de salt. 

Pentru a calcula poziţia Mingii în timp se dă uu increment mit de timp 
(D) şi se aplică legile fizicii pe acest interval: 


TOL Usel (+D 

X (I4+1)=X (D-+V*D 

7 (12-1) UD Dat 

Y (1-0) s Y (1)-+0-542 (D-HZ-(1-F1)*0 


Unde : 
X este deplasarea pe orizontală (inițial nulă), Z este viteza pe verticali 


Le 


(de axemenâa nulă la plecare), Y este înălțimea deasupra solului, G este aceele- 
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rafía gravitațională (9,81 m/s"). Indicii ] şi Lt) corespund valorilor diferitelor 
variabile la începutul gi la sfisşitul incrementului de timp. 

Dacă we loc o ciocnire pe dvrata incrementului de timp, lormulele ce se 
aplică sînt puţin modificale. Prezenţa unei ciocniri ceste semnalată priatr-o 
valoarea negativă a lui Y (I--1), cear fi hupasihilă fizic. Cing se produce acensta, 
7 (141) şi (1-1) se recalculeazi ca mai jos. 

Mai întîi se calculează tipul necesar mingii pentru a stinge phuisutul, 
plecînd din poziția sa de lu Inceputul incgcmentului de timp. Dacă se noteazü 
acest Gimp, DI, atvnci : 

pi -D*Y (D 0)— Y, (1-1) 

Se calculează apoi, viteză pe verticală imediat iuninte. de ciocnire e 
ZeZ(1)—G*Dl 

Viteza pe verticală imediat. după ciocnire va fi deci: 
Z1——UC*(Z (1). —G*TH) 

Înălţimea deasupra solului ls stirgílul inciementului de timp estes 
Y (124-1) 0.5*(214-Z (12-1) (D—D1) 

ar vilez: pe verticală ls sfirgitul increpientului de timp: 

Z (14-1) 921—G* (D—D1) 

Programul funcționează astie) s 

1. Citeşte valerile H, V, N, € şi D gl testeuzà validitatea lor 

2. Iniţializează parametrii: — 

1e1 (cantor de ineiementare) X (1) 0 
Be (tontor de salturi) Ze 
T (0-9 Y Disch 


3. Caletleaxü deplasarea pe orizontald şi pe verticalà, si viteza pu Nort- 
cală cu ajutorul formuleler de mai sus. 

4. Dacă mingia lovește pămîntul pe paremsul incrementutui de trup 
se testează dară irehuie calculat saltul urmilor sau se termină pregraunil. 

a) Dacă BN se recaleulează viteza pe verticalà ov: plasarea pe verti. 
cală eu formulele modificate, se incremenlenzii cositorul de salturi (Bs D4-1) 
şi se trece Ja. incretuentul de limp uri Ktor, 

Io Dacă Bech se culevtează timpul şi deptasarea pe orizenbulà fn wr- 
mentul ciocnirii. 

5, Atişcază valorile hi X si T urmate de o tabelare completi pentru 
T. X, Y şi Z. . 

6. 'Frasează: grafic Y funcţie de T. 
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7, Se reintoarce la pasul 1. Dacă se introduce T1—0 se iese din program- 
Programul acceptă 100 de increnrentüri de timp, D trebuie ales astfel 


tacit să existe între & si 20 de 


puncte de fiecare salt. 


Calculul valorilor FAEN. X (+1), Z(I--1) şi Y(I+1) este efectuat 


de un subprogram. 


Se observă că de fapt programul integrează ecuaţia diferențială d'y dt = 
-——j) en ajutorul metodei Euler modificată. 


AA PEN * INTRODUCEREA DATFI AR 2T VERIFICAREA LOR" 


3520 DIM Cité v4 1723 
$39 PRINT "HALT 
pa (E H 

DAS IF At TIEN Gen 
Gan PRINTI “INALTIME HECAT tea GOAL 

pa n Tu 665 

AD EE Hen TEEN Zen 

MS PA Quen QU[32UNT2LA NICA E 

ATO ups 

129 VRINT aen DE: Sau pi 

PRO DPN M 

CD IC ien uta qoo 

"MAR D GALERI FECATIVeEROARE '* 


Ze bf, Te src. Dots 
HIT EAI Ar Hr (RS 


Ie rmt War IC LFN: PE RESTUTPIRE* ( 
25 tip C 
IS Cori THEN 1:3 
PRINT *COZFfCIEMÜD t Cin TAR-CRAREI o 
ta Ta do 
Ld OMM "Dn cnra, 


AP n TIP 17: 

Mint inneren MEZATIV SAU S -EPOARE ee 
c re Ww p 

etur 
2 BEM "EHITIALVZADZIA Finan Ris: 
Ge tigyeveg teil te 
MAN 
07.0: 


REM ICA Pia, vOETCOP) TI AL DEPLASPRII” 
RIA PEUTAN FIECARE 1NCRECPnENT* 


23 j 
295 AEM ot TRL SALT” 


FLO DORNEI- 

315 on sus 220 

220 Iad 

325 Tieqa 

IM Eieht 7? 

325 

e REN *aPiSAREA fEIULTATELDR r4 Ch Ice" 


3*9 PRINT “DISTANTA OGRTZCSITALA PARCUREAc": T)" gr 
33$ PATAT "TIMPUL CERUT-"a T1 07 Sr 

260 PRINT 

76 PSINT "YIN", Für, CA12. ^, INALTI 
242 PRINT "eeenmammammsansuTHAUGGDGM en en 
"565 FOR Cat 11 

270 PRINT "?ea"pTCID xml), Yen) VIIO "Zn" Crese 


TOvCAC 7 


45 Viu it 20, 386, Io, EA 
dc L7-11710 

AMD feeling? 
439 Go-H710 

435 I-11e0/In 

330 HHCH LP. P. 9 
731 MOVE LP 

gaz DRAU RE 

402 DRAM R.T 

$44 DRaU C£, T 

445 Dau LD 


4c RE" *ThADARCA AXELOn* 


FA *TPACARCA CME 7 
"TUE f 


Rast FINE 
MEI [d 

"DE Lin 

Q7 19 925 


REM *ZUDCROGEA^M DE CALEU. AL VITEZEI $1 AL -` 
RM "DEPLASARII LA SPIASITUL INCRERCHTULUI 


Zei kel pon 
ve lait 
2M prm fept-ng 
vC121)7 YAT P «C, Se(2«1*] 15 24 £9 »»D 
` RETURN 

Fun 


12.18. Exerciţii de despărțire a cuvintelor in silabe 


Programul constituie un exeraplu simplu de aplicare a învăţării progra- 
mata, Se afişează cite a regulă de despărţire m silabe, urmată de un exeiplu. 
In continuare sînt date mai multe exerciţii de verificare pentru regula respec- 
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tivà. Regulile şi exercitiile.siut codificate prin DATA începînd cu linia 501 din 
pregráw, puttudu-se adăuga noi reguli și exercitii. 


tU Ain ESOR: è 
20 Net -—áÀ- Get 
39 mir €o068 Data * WTA, H e ste 
4Q PRINT * DESPARTIREA CUVINTELOR 1B ^ 10. DATA * HO = TAR = IRE = 2 * 
AS PRINT * --—---------------.------- 620 DATA * HOT - AR -IRE e 23 ^ 
Du PRIAT * $tLaB0 * SD DATA * NO - TA - RL - TEL * 
55 PRINŢ * ------ 440 DATA *0*,4, *2^ 
60 PRINT * REGULA “n 650 DATA 4 
7U PRINT * ==... SAO DATA * DIHTRB DOUA VOCALE gUCCESIVS * 
80 ona 340 670 Data * CARB. NO FORMEAZA DIPTGHO ^ 
99 READ ESITA? 490 QATA * PRIMA APARTIHE HER DINAINTE ad 
300 PRINT * Eau st 490 DATA * h CODA CELGI URMATOARS 
110 PRINT F$ 700 BATA - Ce RE — A - LU i QU «An 
120 PRINT 730 DATA * IN - Di - VI - DUA - Li - TA -Teete 
tJO PRINT * EXERCITII * 729 DATA * IN - DE - YVI - DU -A- t Ta ei «0 
140 RGAD BTA? 790 BATA * "0*.2.*1* 
190 LE C*c2f923? e "ër TH3A^130 780 DATA * Ph - XG ca - UA vr 1 * 
360 PRIR? ES ?50 DATA "TO - DEA - Uh $2 2 * 
170 GCTO 34C 760 DATA *0*.2,'2* 
VOO READ R 770 Nata * 
Lëa Leg 7S0 DATA * NOCA C VARATA 08 DOUA * 
250 PRINT " RátPUnO? * 399 DATA * SAU MAL MULTE (üR$O«SH * 
2136 INPUT E 900 VATA * PRIEA COHMSCAMA YHECE LA BILADA ° 
220 (P E 7 K THEN Seu BLO DATA + DINALKTEICEALALTA (CELELALTE, e 
232 lat: 620 ONIA * LA SILABA URMATOARE 
240 PRIN) * kEvEDUTI RECULA e 630 DATA * E - X18 - Ta . 29. - nec ERT 
230 6410 ac2 OAY DATA * RU - HTE- NC - (e e 
259 tP 1 €» ( tHUM 200 up DATA * MUUT RH: 14 22 * 
270 PRINT > FELICITARI * 689 DATA * PN - 16 ep: sn «e 3 * 
200 RUAD fire! RTO DAIA * PUR - TE - Ut - A ed" 
Zon (P SINUI e zt: THEN 320 000 DATA " S 
200 IF E*(2102) u *3* THEM 490 $90 bata " $9 - a - L1 - TA - 5&0 9 
MYN a Mit 990 NMA * PERS A-B: HU In: 1 - 2 * 
920 IP N « 4 TIIOU 39 TIO DATA * PER - fân a - 1 - 16 - 76 1 3. * 
330 Drop am DAIA * PER - 32 - HA - L1 -TA e TR e 4 * 
340 READ X *30 DaTh *u-,4,*2" 
320 FOR 1 » | TON 946 Data * HXISTA EXCEPTIE LA ACâRŞTA ftOQULM * 
560 RDAO n$(TO) 999 DATA 2 
370 PRIMI ES gen PATA * CIE Pain LüRSOAUA ESTE * 
$80 NEXT 1 970 DATA * Dt, D, C, P, TK. TAQ A OOVA L,R * 
TVO BüTURN 920 DATA + ANINECUA TREC LA SILAAR e 
400 READ ESITO? 990 DATA * A - BRE - V1 E Ce 
alu RIUT 85 IOO Dain: Can - NU S Y * 
420 6910 so 1010 DATA * C2 - OAU e 2 * 
Stu DATA 3 1902€ DATA i ALPI 
SIU DATA ^ DACA VOCALA G URHATA OG Q * LCa DANA pt Rn 
520 DATA * $(NGURA CCMSORNA ACEASTA * Pe bs ad EU A 
YIO DATA * TRECA LA SILASA URHATOARE * TOSO BATAR Reg 
Zap DATA * LG - GG; 0:24" 16049 Dain: DU - HCC ~ RAT" I * 
$59 HATA *0U- HA = BÉ ais LOTO: DATA * DB © HO ~ CRAT v z * 
Dél DATA * DUN - A - BR 2 2 * 10R0 DATA "pr, Sei 
570 DATA * DUM - AR - E33 * LOYO DATA * Nl - SGT - poeti» 
500 DàJa^ De UR - A - RE e A HS Dél Sek SE- TRU 2* 
"st Sit p j E D D 
390 UTA *6t.i. i i) M 


12.19. Verificarea cunoștințelor de geografie 


Exemplut ales în cadrul programului este axat pe veril ioi e a cunauşterii 
teşedințelor de judeţ. Exa minatului i se solicită să răspundă la 10 întrebări, 
afigind un număr de 10 judeţe alese aleator și ceriul să se introducă uumele 
reședinței judeţului respeetiv. După parcurgerea celor 1U întrebări, sc afişează 
nuwăcul de răspunsuri eorecle. Dacă se răspunde greșit. la o întrebare. se indică 
si răspunsul corect. 


Programul poale fi extins făra dificultăți peniru orice gen de Leste usemă- 
nâtoare (verificarea cunoașterii regulilor de cirenlație, formule, definiţii ete.) 


Exerciţii de dospărţire a cuvintelor In silabe 1%5 


a EE EE EE DE E 


4 K LICIT * D ' e. 
DO ` (ësou, CART 400 DATA * JUDET N + ; ^ BESEDINTA 9 


1D 

13 

20 FPRIMT * DEHUNIRE JUDGT - RESEDINTA * 419 END 
29 TIK.M9(502, 951507, US C29 
3 EI 

35 T -30 

ao POR j 21 TO lO 
45 BOR J e ( TO Iaiiënrhtezeih 
So READ Weit, SIT) 
Se NEXT J 

<Q PRINT * DATI RESEDINTA JUDETULA) "Hr 
£9) INPUT act 

70 |R 94 & S» (RER ei 

73 
03 
05 
ES 
24 


v Bai 
9 GATI 20 
PRINT * RASPUNS CORLU u2 EI "än 
REBTORAĂ 
LA 
160 PRINT ^ DIM 12 LNT&ZOAKRI * mu sTICU 
130 grer 
1229 DATA * aunt 1 t,t MESE al 07 
130 Baia . 


12.20. Verificarea cunoștințelor unui grup de candidaţi 


Iniţial, programul solicită prin dialog crearea tabelului cu întrebări. 
Ficeărei întrebări, operatorni Si asociază 3 răspunsuri posibile cu indicarea 
răspuusului corcel. Se cere apoi aumărul Total de persoane de exuminat. Pentru 


H pn 8120 

a hun vue, a0e, 71202,5150? 

a HAT D v 2ER 

5T 

G PRINT * IMTRODUCETE INTREGAR(LU? IUA HII * 
7 INPUT AS 

Q 1! a$ e *DA* THEN 1000 

10 PRINT * DATT NUMERE DE RASPUNSURI CORECTE? IDA/NU! " 
ii L9EUT ag 

12 TF A$ = "OA" (REN 1170 

19 TF Bei: €» O YHBM 20 

16 PRIHT * FARA RASPUMSÜUR( INTRODUSE * 
18 STOP 

20 PRIVT * VERIRICAEN DO CUNOSTINTE 
30 PRINT * CITB PERSCANE EXAWLHATE 
49 INPUT K 

$0 MAT U e (ER 

60 MAT T e ER 

70 REM ° tHCEPA UDR(FICARHA * 

80 FOR Lt 23 TO M 

90 FOR J -O TO R-t 

95 IP U a 0 THER LaO 

305 PRINT 690081) 

11G ARENY Kai ise) 

120 PRINT gei Jur! 

130. PRIHT 291 lat 

149 PRINT * Bert RASPUNSUL (1.2.2) 
190 iNPUT R 

180 IM Die) e R THEN 212 

470 PRINT * RASPUNS ERCKAT * 

LRO PRIMI * GASPUNS CORECT ESTE “e 
LRS 1E V x 0 YHEH 195 

eg vRINTRSCIN24QI JeL2£3T02) 

192 DDTD 229 

19% PRINT ALIHI) 

260 Gora 230 

230 PRINT * RASPUNS CORACT * 

220 gt, Jeata 

TIO WDyT 3 

ZG eo 

290 FOR X = 1 TON 

265 Q e DANC, H) 

Zi NOXT d 

262 T1» e 0 

DA PRINT * DIN run: [W72000RI] CDEORSTS *. 
295 PRINT 0 S 


320 FCU t > 1 10 R 

390. J.= tatii) 

230 heat 1 

$395 K - Im ` 

270 PRINY * tit HODIS CUNOSC rt: InTRODARI * 
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369 POR le 
KE HIER LI EA m 


295 RUP * ITT Sei, INTREBA£S, TeciTi S719 * 
N17 


H 
420 VIRDSN -10,0910.-10, 910 
430 Hove -10.0 
44U DRAN Mete, 09 


270 Enay Ze $11) 
NEXT 


wa 5TOP 
1000 pc * [RLTIALITARE * 
1008 U e 
1019 DIN HEEN $$13020,30*,8 
ww rant * CITO JuTRODARI aere $ 
1030 LAPUT 
1059 PET © * DATI INTREBAREA 5) CELE * 
1954 PRINT * TRE] RASPUNSURI ^ 
1040 FOR 1 « O YO N-1 
3070 PRINT ^ INTRESRREA "5351 
1090 UtPUT Qactet) 
io?o POX Jet YO 2 
1309 PAINT * RASPUNSUL *,J 
1330 INPUT Arina) 
1128 WBXT J 
4120 PRINT * DATI äere RASPUISULUJ * 
1338 TAENT * CORECT 
1149 LKPUT ginn 

? RENT Um 
1149 Goto ini 
3170 Gu e * CITE INYAGDARt AVATI? * 
912% INPUT N 
n POR 3 x O TO K 

12% PRURY * Zeiek, Lë INTREBAKRA lea 
Mes Y. Mnt, 
1190 X 
12 ooro H 


fiecare persoană In parte, se parcurge tot setul de întrebări, cel exaininut indi- 
cind de fiecare dată rispunusul pe care H cousiderá ca fiind corect. La răspuna 
incorect, programul afişează pe cel corect, fa "vederea fusugirii lui. După par- 
curgerea setului de întrebări, se afişează totalul răspunsurilor corecte date de 
examinat, 

La epuizarea exominării tuturor persoanelor, se afişează nuiuârul mediu 
de răspunsuri corecte, caracteristic grupului examinat, şi se trasează graficul 
gu aumărul de răspunzuri cerecte pentru fiecare persoaná in parto. 


12.21. Ordonarea candidaţilor după mediile obţinute 


Exemplul de fatá realizează ordonarea candidaţilor după mediile obținute 
la 6 probe. Se introduce numărul total al candidaţilor. urmat de numele fiecărui 
candidat şi calificativele obținute, la cele 5 probe, Se afişează numele candida- 
“ilor şi media abfínut5, în ordinea descrescătoare a inedüilor. 


Prin modificarea liniei 17 se ponte modifira numărul de probe, 
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5 PRINT ? RE tee KA, ous ate * 
Ip PRINT * BATI NUMARUL CAROLBATILOR * 

19 INPUT N 

|? BOIS 

25. DIM ASIN 201 NCHD,CIP 9 

TE AAI m > TER 

P PRINT * CAT. MUMELE 13 CALIFICATIVUL * 

YC PORI Si TAN S 


KHN 

"st INPUT C 

fW Ja | TOP 
Med 0 Inm prRe6zo 
NEYT J 

? Asiy e RitaePp 
$^ WERT I 


ni) <a Z THEN LUS 
Ein 


> K "HEN 122 


suro (mn 
EEN * INVERSARER ORDINEI < 
9 04 * Git tra 

DN OT UI 

mi 


"TNI S 


IE | € k THEN 63 

REN ^ !LPARTREA * 

PRINT ^ KUMELE re" "90l5 
FOR Isi fà d 

PAIWT Ati) 

NEXT f 

tut 

suo 
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Capitolul 13. | Microcalculatorul aMIC în grafică, 


jocuri, aplicaţii diverse 


13.1. Trasarea strofoidei 
Programul Lrasează strofoida, conform ecuaţiei : 


2 X'(X +a) 
Mem 


Se solicită prin dialog distanţa punctului A faţă de origine. (fig. 13.1) 


S PPINY © STAIPNINA * 

10 PRINT * DATI VALUAREA ^ * 
IO INPUT A 

GAR LE) 

29 Y » SORIX*2»1X*AM/(A-X)1 
930 (RIIT 

35 UtWDoU -Y,Y,-Y.Y 


€$ FOR Y ~ A/3 10 ~-A STEP ~) 
7O Y e $0RCX^20n OX449/(tA-32) 
?8 IF X cs © THEN 90 

Uo Dau X.Y 

B3 ooto % 

30 DRAU X, Y 

9S NEKT x 

100 FOR YX = -A TO 4/3 

105 Y > LAKE AT RAL 
110 IF X >> Q9 THEN 123 

14$ tkAU Y. Y 

120 caro 120 

125 DRAU X.-Y 

120 NGXT X 

133 stop 

340 END 


Fig. 13.1. Strofoida. 


13.2. Trasarea cicloidei 


Trasarea cicloidel 179 


Programul trasează cicloida, conform ccuatici : 


X =r (l-—sin 1) 
Y er (1— cus t) 


unde: (fig. 13.2) 


143 
150 
Ms 
120 
Yel 
170 
175 
we 


13.3. Trasarea epicicloidei 


r este raza. cercului, 


L este unghiul de rotatie, 


A este paruinetru : 


A este 1 punct pe cere 

A»1 punct exterior cercului 

A«] punct interior cercului 
Se solicită prin dialog valorile pentru r, 3. precum şi numărul tolal de vi- 
cluri de lrasat. 


CICLOLVA * 
DATI RAZA CERCULUI * 


PRINT * 
PRINT * 
INPUT R 
PRINT * 
INPUT L 
PRINT * 
INPUT H 
IP M co 9 IEN 63 

Res? 

Ae Zei 

H: Neäefls" 

III 

HIRpOu A,B, A, G 

REN * TRACAZEA AXELOR * 

HOVE A.O 

BRAU 5,0 

MOVE 0,4 

ORAU 0.8 

PEN * *RASAPEFA CEHCULUI * 
NOVE, R.R 

FOR J c O TA 2wP1 ITEP FIZIO 
DRAU RuCO31 3), Riv INC) 
HeT J 

x70 


DATI PARANETEUL L * 
CITE CICLYRI? (,2,9) 7 


? Ye. Rata). 


move x,y 

bot 35) T pei EP Frizia 
Y « anije ULI 

Ye Pelt-Lecorta)) 

Frai X.Y 

WEST A 

stop 

euo 


Fig. 13.3. Cicloida 


Programul trasează epicicloidu, după ecuațiile : 


DE 


KËTIOER r) cos a L—rcos-u- l 


Y &(BR 4- r) sin a t—r sin Et" l 
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unde : (fig. 13.3) 


H — raza cercului fix 
r — raza cercului mobil 
t — unghiul formal de dreapta care uneşte centrala celor 2 cercuri cu ` 
axa x. 
Forma curbei depinde de raportul r/R; dacă r=R se obţine graficul 
vardiaidei. 


Se solicită prin dialog valorile pentru r şi R şi se trasează epicicloida, 


10 
LEJ 
20 


PRINT * EPICICLOIDA * 
InP 


PRINT ^ BATI RAZA CERCULUI MOBIL * 
t 


23 INPUT 


a 
u 


KE ELE EC 


385288 


13.4. Trasarea melcului lui Pascal 


INITE 

A = Reul 

VINDOU -A,A, =A, A 
^,0 


POR X = O TO 24PL STEP PI/30 
DRAU R»COSUX),  RuSINIX) 
XT X 


* gePinR/L 
OR X 2 O 10 M STEP P1710 
* A»COSIBMXD-LeCOS(CHX) 
a PEE A a 
" 


PRINT * DATI RAZA CERCULUI PIX e 
UT R 


Fig. 13.3. Bpicicloidia. 


Programul trasează melcul lui PASCAL pe baza ecuaţiilor : 


X z2R cost q--a cos p 


Y =2R cos e sin 9-42 sin 9 
unde (fig. 13.4) ; 


R 


esle raza cercului 


p este unghiul dreptei care se roteşte față de axa X 


a este parametrul de care depinde forma curbei 


(dacă a/R=2 se obţine graficul cardioidei) 


Se solicită prin dialog valorile pentru R şi pentru raportul a/R (nu se 
dă valoarea direct pentru a). 


Trasarea melcului iui Pascal [E 


S ' PRINT * MELCUL LUI PASCAL * 
10 PRINT * COYC OIDA CERCULUI * 

25 PRINT * DATI RAZA CERCOLUI * 

20 INPUT R 

25 PRINT * DATI RAPORTUL AE * 

20 PRINT © PORNA CURBEI OGPINOG BE A/R * 
95 PRINT * A/R « 2 CU BUCLA * 

AO PRINT * &/R = 2 CARDIOIDA * 

4$ PRINT * 4 CAE: 4 FARA BUCLA * 

SO PRINT * ACR > 4 CUREA CONVEXA * 

$3 INPUT M 

€0 IFN ce ó THEN 70 

6$ N-o 

70 A s NeR 

73 Me 


90 UANDOU Asp, 2efah, det, INRIA 
63 NOVE -4»R,O 


110 fOk I = O TO Dutt STSP P1/10 
195 IRAU RHERCOSULLO,RuSTMELD 

120 NEXT I 

122 KER * TRASAREA CURBUI - 

123 FOK I + | TU zept STEP P1710 
130 2 + cosul, 

195 U = Sint) 

140 X = amuz" 2eau7 

143 Y e Zeäeisiteäat 

150 DRAU X,Y 

153 NEXT I 

160 PRINT * RAL VRETI PT. ALT RAPORI?”, 
UCI ITT TN * 

170 INPUT D 

125 (P 29 = *0A* THEN 25 

160 sroe 

165 END 


Fig. 13.4. Melcul lui Pascal. 


13.5. Trasarea cercului circumseris unui triunghi 


Se solicită prin dialog coordonatele virfurilor triunghintui. 

Întrucît în program nu se calcalează WINDOW-ul în funcţie de coor- 
donatele viriurilor triunghiului, pentru a nu ieși cu triunghiu! din eciani 
TV se recomandă utilizarea valorilor de la —100 ta 100. 

În program se iau coordonatele a cîte două virfuri, se determină direcția 
dreptei definite prin aceste două puncte: 


Y—Y; 


me 7 
Deg 


Se determină coordonatele punctului median al laturii Prin acest pune! 
trece mediatoarea triunghiului eu direeția : 


1 


Ecuația ei (dacă punctul median are ceordonatele X, Y) este: 
y—Y =R (x—X) 


Dacă intersectüm două mediateare obținem coordonalele centrului oer- 
cului (B, C) cireumscris triunghiului. 
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Din coordonatele centrului cercului și coordonatele unui virf al triunghiu- 
lui se poate determina raza cercului. 


dee ON 


Se iniţializează ceranul si se determină spațiul utilizator: —100, 100— 
—-100, t00. Se trasează triunghiul şi cercului cireuinseris. Se afişează coordo- 
matele centrului cercului si mărimea razei. 


10 PRINT * CERCUL CIRCUNSCRIS * 
DIN (2), 8t2),Ct2) 
RINT ^ DATI CONRBONATELG VIRFURILOR * 
AY INPUT A,B,C 
$0 NATD aA 
40 MATER 
"o GOŞUB 400 
09 tF Y * O THEN 400 
30 Set 
(07:8 
339 HaT Bec 
170 HAT € 80 
149 COUA 600 
140 iF Y e 0 THEN 460 
130 Y = t5ap-Rato/(S-a? 
160 în $ > 9 TREN 190 
170 X = (Y-9»7f 
1*0 caro 209. 
190 X a 0-079 
200 B = ABSIX-ACID 
210 € * A9$tY-A(27 2 
220 R e $0R(8*2«7*2) 
230 inire 
240 UIRDOU -100, 109, -100,100 
750 MOVE -1009.0 
240 DRAW 100,0 
270 MOVE 0.-100 
200 ORAN 0,100 
290 MOVE Ati 1, A120 
wO BRAU Dri,ut2> 
310 BRAU CILI CD 
320 BRAU AL. A022 
320 MOVE X«R,Y 
340 Ok | + 0 TO 2«P1 STEP P1/10 
379 BRAU Xef*COSC D YeRes EM D 
360 MEXT 1 : 
370 PRIM? ATIL, IP; RATS WR 
360 PRINT AT(2, 1); *X = *1X,*Y = *uY 
390 310P 
*00 MAT D 3 C 
410 NAT E58 
^20 GOSUB 400 
430 IP Y + O THEN $10 
a. sa ] 
Sorang 
460 MAT D* A 
470 MAT Hr 
482 605U8 409 
490 (F Y « 0 THEN SIO, 
300 GOTO 190 
310 PRINT * PUNCTE COLIMIARG e 
570 GOTO 30 
600-120 , 
610 i = D(2)-E(2) 
420 IF ! = 0 THEN 730 
630 R v -(DCL-RCGD217E 
640 K > Eil) 
450 IP Bt? € DLID THEN 670 
460 X e si) HUS 
670 X * X*Ag$ (tB BC 22) 
490 Y + t2» 
690 IP 6(2) € D(2) THER 710 
700 e Bä * 
710 Y a Y*AB$t0002) -EC20)/23 
720 H e R»t0-X)«Y 
330 RBTURN 
740 ENS 
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13.6. Graficul funcţiei polinominale 


Se introduce gradul polinomului şi valorile tuturor coeficienţilor (zero 
pentru coeficienţii care lipsesc). Se introduce apoi intervalul de definiţie al 
funcţiei şi numărului de pași în care se face trasarea graficului. Un număr 
mai mare de paşi face trasarea mai exactă, dar mai lentă. Se va corela acest 
număr cu mărimea intervalului de definiţie. 

Subprogramul de la linia 50 calculează valoarea funcţiei pentru o valoare 
dată a variabilei. La linin 170 se apelează cu limita interioară a intervalului 
de definiţie. În bucla 200—280 sn retine valoarea minimă şi maximă a funcţiei 
(în P şi R) pe intervalul de definiție. Spaţiul utilizator se defineşte în funcţie 
de limitele de definiţie 5i de valorile P şi R in linia 330. Se trasează axele OX 
şi OY si forma funcţiei pe acest interval. 


10 PRINT * GRAPICUL PUNCTIRI POLIAORIALE * 
19 PRINT * DAT PRIM GRAD ȘI CONFICIERTI * 
20 PRINT * DATI ORARUL PUNCTIBI * 

30 INPUT 0 

40 BIN CiO») 

SO PRINT * DATI COSPICIENTII* 

€0 MAT PUT C 

70 DINGI ` 

90 PRINT * DATI DONRGNIUL 00 DEPINITIS * 
9O HAT INPUT L 

100 PRINT * BATE NUMARUL 38 PASI * 

110 INPUT H 


120 JP L(1) < L(2) TREN 150 
130 PRINT ° LIMITO GRONATO * 
140 0070 90 
ă Va He (LODSLUDD/R 
60 X «v tt) 
170 $0508 300 
100 P op 
190 Rep 
200 POR K » 1 TON 
210 X e X 
220 90809 300 . 
230 IP F >» P THAN 240 
240p ep 
230 00r0 290 
240 1P P (e A THER 290 
270 R » P 
290 NƏXT X 
290 iP R > P TRIN 230 
300 PRINT * PUNCTIB CU VALOARE CONSTANTA eu 
305 PRINT " [M INTERVALUL BAT e "IR 
310 $toF 
320 (NIT 
330 UINDOU Lt12,L(D, PR 
340 MOVE L(1),0 
350 DAAU L(2),0 
360 KOVE O.P 
370 BRAU OLR 
200 X e LIA 
390 6058 $00 
400 NOVE Xa 
410 POR K = » 70N 
420 X = X«H 


460 strop 

900 REN * CALCULUL VALORII PURCTIGI * 
$10 pact 

520 POR i «21700 

330 F e Paxectţ> 

340 NEXT I 

590 RETURN 

J60 env 
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13.7. Suma grafică a mai multor vectori 


Se solicită prin dialog numărul total N al vectorilor de însumat, mărimea 
fiecăruia, şi unghiul lor față de orizontală. 

Masivul 1. (N) contine lungimile, iar A (N) unghiurile în grade. 

Pentru fiecare vector se calculează coordonatele virfului vectorului con- 
siderind vectorul din originea axelor: 


X (Desk, (1)*cos (A (1)*P1/180) 
Y (I) 2L (Y)*sin (A (1)*P1/180) 


Coordonata virfului vectorului sumă se obține din formulele a 
N 
A= Y X (1) 
i=) 
N 
B= Y(1) 


lar lungimer vectorului sumă și unghiul cu orizontala: 
LAMB 
C —(arctg (B/A))*180/PI 


10 PRINT * ADUNAREA VECTORILOR» 
20 PRINT * Ma. VECTORI OG ADUNAT * 
30 iuret M 
40 DIR LODLACO,XOD $ IN 
SO PRINT * DATI HARINRA Si ORSMIUL * 
55 PRINT * CU AXA XA VECTORILOR e 
$0 POR I * 1 TO N 
?O  IMPVT LLID ALLO 

NEXT t ` 


POR t = 1 TON 

100 XCI) * LC105»COS(a00( D )uP1/1905 
130 One GCODSINGCUDO»PI/1000 
120 NEKT 4 

130 A » Xito 

140 B * vi 

130 POR | „= 2 TORN 

340 A * Aen 

170 8 © Berti) 

100 ASYr | 

195 inttp 

190 L as 30t«4^2*8*2) 

200 € » ATBCB/A) ` 
210 PRINT ACL 131 LUNDINSA out 
220 PRINT AT(2,124* UNGHIUL v,Cuiso/er 
230 VIH8OU -1,401,-1,80] . 

240 ROVE -1,0 


270 BRAU oct 

260 Ber 0,0 

290 FOR 1 > t 70N 
300 RBRAV KO, ri 
310 Tt 

320 NOVE 0.0 . 

330 BRAU A8 

340 ster 

ET 
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După iniţializarea ecranului, spaţiul utilizator se stabileşte în funcţie 
de coordonatele A, B, se trasează axele si prin bucla 290—310 utilizind instruc- 
țiunea RMOVE vectorii: de adunat avind coordonatele relative X (D), Y (D. 


Se trasează și vectorul sumă. 


13.8. Mișcarea unui punct material într-un cimp gravitațional 


Se consideră un punct material care pleacă cu viteza iniţială Ve dintr-un 
punct A şi trebuie să atingă un punct B aflat la o distanţă D faţă de A. Migca- 
rea punctului este dată de ccuafia: 


5 


cos? w 


uude j 
Ve este viteza inițială 
« este unghiul de aruncare faţă de orizontală. 


Se consideră de asemenea că între punctele A și B poate exista o dife- 
rență de nivel N (punctele nu se află obligatoriu ambele pe axa orizontală). 


Programul solicită prin dialog distanța între cele doua puncte, diferenţa 
de nivel între cele două puncte, viteza inițială a mobilului şi unghiului sáu 
de aruncare. 


10 PRINT * BALLISTIC * 

Jo PRINT * BICTANTA DE TRACERE * 
20 INPUT & 

40 PRINT * DIFERENTA DF HIUEL * 
4$ PRIM? * POZITIV SAU NEOACIV * 
ZO |NWPUY N 

60 Nr Naet 

10 yWITP 


120 IP N `t O TREN 130 

130 Y * TeABsiu: 

140 ooto 1an 

(80 $9 TAN 

140 WiN0O0U 0,54,.0,44 

170 PLOT X. Y 

340 PLOT gt 

190 NOVE x,y 

230 PRINT ATC29,2),* VITEZA INDTIALA * 
210 QMfUT u 

220 PRINT 41120, 21. r UHGNIUL (M ORADE * 
230 (pur u 


960 C s 3/1uvCOoS (Ubi? 7 

270 1 ^ Q 

BO FOR K + O TO aa 

SON A e (KoT-CaX* 2 

700 DAAU Ze, T*A 

330 IF K « aa (ëng 

320 IP tank: 1 YHEM. aa 
3390 PRIN? AT(30.2*, 7 LOVI? 


340 IF I : i THEN 10 
370 0079 (90 
380 rue 
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Se trasează graficul traiecloriei punctului, speciticindu-se la  sfirgit 
dacă s-a atins sau nu punctul B. i i : 

Dacă nu a fost atins punctul B se cere introducerea noilor valori de viteză 
iniţială a mobilului și a unghiului de aruncare pină se găseşte combinația 
ndeevală. 


13.9. Generarea si modificarea unei figuri 


Programul gencrează desenul unui scaun văzut in perspectivă (fig. 13.0), 
solicit înd prin dialog dimensiunile h, le, 13 şi l4. După generare figura poate fi 
modificată succesiv, schimbind una sau mai multe dimensiuni. Se pot obţine 
astfel o serie de reprezentări ale aceluiași obiect, cu diferite proporții inire 
dimensiunile principale. 

Programul poate fi extins cu ușurință pentru generarea de figuri mai : 
complicate, generarea mai multor figuri la diferite distante între ele, permu- 
tarea lor etc. ajutind la proiectarea corpului respectiv. 

F PRINT " PROISCTARE ASISTATA * 
+ reier e NON LUNOLHG, LATINO SHIUT SCAUN * 
20 PRINT * DATI IMALTINR SPATAR * 
25 Iwer 
30 PRINT" DATI INALTINE PICIOR * 
E c |! 4 
40 XI v S0Rtui'2/a) 
30 Yi » X1 
40 xa eet 


70 Y2 e X273 
80 1 a $0R(.2*2/4) 
20 * 2»€3 


160 A » X2*X1*32*20 
110 d i ee 


130 an 9,5,0,0 
140 KOVE 10,10 


170 RDRAU xi, Li 
190 RORAN x2. -2 
190 RORAM -X1, ‘Y1 
200 


270 RDRAU O, -L4 

200 PRINT * CONTINUATI CDA»? * 
290 INPUT C 

SS iP C e | TH6N 20 

310 sto? 

120 END 


Fig. 13.5. Scaun văzul în 
perspectivă. 


13.10. Generarea de figuri tridimensionale 
coniorm legilor perspectivei 


Programul iese din sfera exemplelor demonstrative, fiind un instrument 
ulil pentru proiectarea asistată de calculator. Programul permite generarea 
de obiecte cu muchii drepte în spaţiul tridimensional marcat de axele OX, 
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OY, OZ. Obiectele se compun prin asocierea aga-numitor segmente de dreaptă 
unitare. Lungimea unui segment unitar poate fi modificată pe parcurs. Indi- 
carea direcţiei de trasare se face prin tastele asociate deplasărilor pe cele 3 axe 
de com donate. Odată încheiată faza de generare a obiectului, acesta poate fi 
privi! din orice puncl. din exteriorul său (ca şi cum privitorul s-ar roti in jurul 
Aaa După dorinţă, obiectele generate pot fi completate sau modificate 
ulterior. 

Imaginea în perspectivă a unui obiect a fost creată simulind (aproxi- 
mativ) fenomenul de creare a unei imagini pe retina ochiului. S-au luat în con- 
siderare următoarele ipoteze simplificaloare : 

a) privirea este indreplatá totdeauna spre originea axelor de coordonate 

b) cristalinul este o lentilă subțire convergeută, iar retina un plan orto- 
gonal pe direcţia privirii, la distanţa de 3 cm faţă de centrul cristalinului. 

S-a utilizat formula lentilelor convergente: 


unde (fig. 13.6): 
O este distanţa între obiect sl lentilă (OB) 
i este distanţa intre obiecl şi imagine (OD) 
este distanţa focală (OF) 
A este punctul de proiectat 
P este protecţia punctului A pe planul retiuei 
1. 7 sint versorii axelor de coordonate în planul retinei: 


P=; gas, 
Il axes |l 


axil 
Imaginea obținută prin lentilă fiind răsturnală, la proiecția pe ecran 
ea va fi din nou răsturnată pentru obţinerea imaginii corecte. 


A 


Fig. 13.6. Lentile conver- 
gente. 8 


Poziţia punctului P în spaţiu se obţine intersectind planul retinei cu 
dreapta AP: 


| bot, nda 
n-b— |n lo 
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lar poziţia sa în plan: 
p=b-—n=p! ti: rezultă 
p'-—tcei;pt-—tcj 
Se obfin astfel formulele pentru calculul coordonatelor punctului pe 
planul retinei ; 


e3 =(0,0,1) 
ER, 
mx esl] 
axi 
—— », 
nxt jl 
ix TESI 
ar-f : +a a 
TEI] i 
p! z —t.c.i 
p!-—t.e.j 


Subrutina de la linia 2000 din program aplică aceste formule la deter- 
minarea coordonateler unui punct pe planul retinei. 


Crearea imaginii unui punct oarecare notat cu C se va efectua conform 


figurii 13.7 


Stg. 19.7. Crearea imagini unui punct. 
Din formula lentilei rezultă : 
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Punctul B se află la intersecția planului lentilei cu raza de lumină paralelă 
cu direcția privirii ce pornește din C. Vom avea: 


bat, nte 
n-5—|[n [[f—-0 
de unde rezultà : 


BeOS mes SAS 
lla 


IR 
to Din 691234, 12), R234) 
30 PRINT AT(2.12;* M = FIGURA HOVA * . 
30 PRINT AT(2,1);* V a FIGURA VECHE MEMODIPICATA * 
$0 PRINT AT(4, ba He PODURA VECHE HOBIPICATA ° 
60 INPUT Ga 


70 LR) 
73 LA) 
60 1*9 
M v o 
$^ v.o 
Be uv»o 


96  605U8 S000 

100 69508 700 

Ié 69508 9000 

120 gosug 300 

130 gosue 3000 

140 GOSUB 2000 

150 MOVE C+30.0+50 

160  002U8 9000 

163 605UP 300 

166 Ee 691, ITOS) 

370 IF ks » *A* [MEN 140 
160 IF KS e *D* FREN 110 
190 IF K$ : *5* THEN 230 
200 IP K* » *L* THEN 300 
210 GOSUÐ 300 

220 €0$UB 2000 

330 ORAU C*50, p*30 

240 GOTO 140 

230 PRINT AT(1,1);* R e RELUATI 
260 PRINT ATC(2, It: S e STOP 
2)0 INPUT F* 

200 IF F* = *f* THEN 20 
490 sToP 

300 f ps « *M* THEN 330 
310 ee RE) 

320 0970 370 

330 PRINT win. 15n* 

340 PRINT Af(1,13; 

3$0 impur 6 

340 Ku) ec 

370 & « Eri 

300 6010 leo 

$00 IP F$ <> H TREN 610 
$10 PRINT ATC, 19" . 
$20 PRINT Ar. 1, 

$30 AS +» (Nk 

$40 1B as * * * THER $30 
$50 IF A$ « *C* THEN 630 
$60 IP A9 » + THEN 600 
S70 IF Ab a "Ar THEN 620 
390 If AS » *D* THEN 640 
590 6oro 330 

$00 80508 9040 

610 RETURN 

420 69(1,)T0J52) o *AMA* 
630 RETURN 
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640 P$ e "Ri JILO U * 9-6 
630 RETURN 3120 GOTO 32c0 
700 (RIIT 3130 U = Va 
710 PRINT AT(27,26); See’ 3140 GOTO 2200 
720 PRINT AT(20,26):*6»t-* . 3130 U e U-6 
730 PRINT MECH AM 7140 6019 2200 


7170 9 - V6 It 


740 PRINT ar, Za) 
3189 0070 ?20^ 


750 PRIN? ATt31,26) 


760 PRINT 47122,2602; * 3190 9 2 v-6 
770 1P fé €) "Hr THENOZO : 3200 NEXT K 

780 PRINT AT!22,26)1 3210 RETURN 

790 PRINT AT(22,262; sie [M * ŞCOO IF Fe = *N* THEM 962€ 

* 900 PRINT ATI2422451; "42408: 5010 6 - pitt: 

810 PRINT AT125,24): *D*DET' 5020 6010 S000 

$20 RüTURM $6230 PRINT 4160,09; MARINEA *; 
2 * caitui 3040 INPUT 6 
ke SE 

2020 IF 33 e O THEM 2080 $040 & e £*1 


3079 PRIMI ATC10,1?;* COORBONATSLE ^: 
3080 INPUT L,À.N 
$090 RETURN 
2000 | * let 
9010 IF F3 » "Nr THEN 9040 

9020 REM * LA V Si N EXISIA IN HEHURIE * 
7930 GOTO $070 


9046 PRINT AT (1, 10:* H 

à 2090 PRIT ARKE, INS 
2120 M) © LoLeManeue 9040 INPUT Gsc1,JT03+2+ 
2130 19 NI + 0 IWER 22%0 9070 IP à € 254 THEM ?130 
2140 Hi = SORI(NID 090 Leo 
3 eo MEC MARINAS. Mo PD 9 THEN ?120 
4160 N2 > SARIN?’ ta EN 217 
2170 Me bp GE 9110 PRINT * NEHHORY PULL ~ 
2190 NI ° SORINJ? 9120 3TOP 
2190 Ma e LeeRe cet 139 RETURN 
2200 WI ^ Wi*2-NA4 9140 END 
$210 IP W3 7 O THEM 2260 


2270 T * J*M3'3/W5 

2290 C » -tiecu»tievert2)7N2 
2340 B = T*(U» J|] *V»J2«Un 32/3 
2250 RETURN 

2260 € * 0 

2270 0 * 0 

7280 PETURM 

2290 PRINT ° EROARE 

2300 $ToP 

3000 FOR K * 0 70 2 

IMLO KS + C911, H ALE A 
3020 IF ke e kär THEN 3090 


3090 IF K* * *6° THEN 3110 
3040 |f X * *?* THEN 3120 
30'850 If KS * "pr THEN 2190 
3640 (V Ke e "är THEN 3070 
3070 IF K$ a "or THER 3390 
308€ org 9200) 

3090 U -+ U.G 


Zea onra 100 


Poziţia punctului F o aflăm din formula lentilci și din faptul că E w află 
pe direcţia de privire: 
[—t,-n 
= - an 
alen AUS. 


3+ [ln] 
de unde rezultă: 


3 m 
[i et 


Imaginea punctului C (punctul A) se obtine intersectind cele duuà raze 
de lumină: Sr See 
aeta (I —b)--f 


a =ta (0—c)4-n 
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Sistemul este compatibil determinat dacă vectorii_ (—b, n—c) sint 
liniari independenti. Acest fant este „echivalent cu c(b—n) * 0. 
Deoarece (b—n) Ln şi (b—n) Lf, avem: 
act (n—c)4-n ; unde: 
t NAI i 
rnale- [—— 1| nc 
at [in ze: 


Folosind ecuaţiile de mai sus, se creează imaginea obiectului care va 
trebui apoi proiectată pe planul retinei (fig. 13.8) 


Y 


Fig. 13.8. Imaginea obiectului proiectată pe planul 
retinei. 


Vom da în continuare instrucţiunile de exploatare ale programului. După 
lansarea su in lucru, programul solicită operatorului una din opţiunile de bază : 

a) N — generarea unei figuri nal f 

b) V — privirea figurii existente din diferite puncte de vedere 

c) M — modificarea figurii existente 


Opliunea N Se cere lungimea segmentului unitar, ce va fi utilizat în 
trasările ulterioare. Se recomandă valori cuprinse in domeniul 5—20. Aceste 
valori derivă din faptul că întreg ecranul este considerat ca un spaţiu de 
100 x 100 unităţi. O valoare mai mică pentru segmentui unitar permite trasarea 
de figuri mai complexe. O valoare mai mare permite trasarea mai expeditivü 
a figurilor, riscindu-se însă depăşirea limitelor ecranului. În acest caz se modi- 
[icá punctul de vedere al privitorului, plasindu-] la o distanţă mai mare față 
de obiect. 

Se solicită apoi coordonatele punctului de vedere (în care se consideră 
că se află privilorul). Generarea figurii. porneşte implicit din centrul ecranului, 
considerat ca avind coordonatele 8, 9, 0. Prin comanda D (deplasare), sc pot 
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Sia: iani 

modifica coordonatele de pornire a trasării. Aceeaşi comandă poate fi utilizată 
pentru părăsirea coordonatelor curente de trasare şi Inceperea trasării dintr-un 


alt punct. Coordonatele indicate în comanda D se raportează totdeauna relativ : 


la coordonatele ultimului punct de trasare anterior. 


Trasarea efectivă a cite unui segment unitar se execută cu ajutorul urmá- 
toarelor taste : 


5— pentru deplasare (trasare) pe axa OZ fn sens pozitiv 
6— pentru deplasare (trasare) pe axa OZ în sens negativ 
7— pentru deplasare (trasare) pe axa OX în sens pozitiv 
8— pentru deplasare (trasare) pe axa OX în sens negativ 
9— pentru deplasare (trasare) pe axa OY in sens pozitiv 
0— pentru deplasare (trasare) pe axa OY în sens negativ 


La apăsarea tastei, se trasează un segment unitar ín direcția specificată. 
In afară de trasare simplă (apăsarea unci singure taste de .directie") se permit 
şi trasări combinate din maxim 3 directii de deplasare. Combinatia de directii 
indică poziţia punctului care va [i unit printr-o linie cu ultimul punct unde s-a 
oprit anterior trasarea. Astfel, dacă se indică o deplasare XYZ combinată, 
se va trasa direct diagonala cubului cu lungimea laturii egală cu segmentul 
unitar. De remarcat faptul că prin opţiunea de trasare combinată se pot face 
trasări în orice direcţii, nu numai paralele en cele 3 axe de coordonate. 

Dacă se dorește moditicarea lungimii segmentului unitar s^ utilizează 
comauda L. Trasarea va continua cu noua lungime. 


Sfirşitul trasării figurii se indică prin comanda S. 


Opliunea V Permite schimbarea poziţiei privitorului faţă de obiectul! ge- 
nerat. Se introduc coordonatele noului punct de vedere, apoi programul tra- 
sează fără întrerupere imaginea vechiului obiect, văzut din noul punct dat. 


Opliunea M Permite modificarea facilă a imaginii unui obiect deja gene- 
rat. Trasarea figurii se [ace pas cu pas, iar după fiecare pas se așteaptă o co- 
mandă, care poate fi: 


C — se trece la pasul următor; ii 
I —se înlocuiește comanda de trasare următoare cu ceea ce doreşte 
operatorul ; . 
A — se abandonează comanda de trasare următoare (salt peste un pas) i 
D — dezvoltarea figurii — se consideră din acest moment trasarea ca 
$ la opţiunea N. " i 

La terminarea trasării, operatorul poate relua ciclul celor trei opţiuni. 

Domeniile de aplicaţie pot fi multiple, începînd cu exersarea vederii 
în spaţiu a diferitelor obiecte, şi terminînd cu activități de design în arhitec- 
tură, interioare de locuinţe, construcții de maşini etc. 
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13.11. Trasare de labirint 


Se trasează un labirint de lăţime şi lungime dată. Generarea se face uti- 
lizind caracterele I, —, :, .. Astfel se poate genera labirintul fără utilizarea de 
instrucţiuni grafice. Labirintul are doar o singură intrare şi ieşire d un singur 
drum de trecere. Fiind trasat pe baza generării de numere aleatoare se obțin 
forme diferite de labirint. 


v6 PRIN ^ CLADIKINT * 

56 fin Mi eg, 3019.130.309 

“tz (In 7 LATIMEA V LUNGINCA 9 
109 JNDUT M. V 

102 I H c a UN Lët 

193 JF H < 70 ch 140 

3604 A ON 8 QOL 008 

Ion Mt V € yn "Wn g46 

Von INE * pins NUEUND. EHIORAYE ~ 
IR GDIO vo 

lusu ^ 

(ar deu 

ICO X a DT ERIX 9 HW 0 3 9 
16 DÉI tonn 

31/0 IU ] * t* In N 077 

371 "ONT. ^, 

V? (10 130 

Sri Pent, 0j 

490 Wat) 

Cn t, 

C-l 

LELE DE st 

Le fe 

hex 


271 


m MEN AC 
VO Uu So 


WAAR GH 


Ko Ril 
d MIR. so neu 210 
Hg bt: "N $30 
d PM Wee, «; O PEN 220 
W &-| - o0 ENR 376 


19 WR, Ge? «2 0 THEN 220 
H KR 2M Gta 320 

1 Mihoc O TIEN 320 
740 X se Dt DEN * 3e 329 
540 ON X QUfO 7o , G20 , 640 
10 PF S €) V In 340 

234 YF Z 5 MENW 
BECKER 

329 COVO i90 

340 1t ut, $519 <> 0 THEN 370 
$50 X e mt IOC 8 3 e 12 
3«0 net X 6010 790 , 620 , $10 
370 X ^ INTE KNDUX) a 2 e 49 
300 uN X GOTO 7*0 , N26 

$50 IF had HEN 470 

400 1t HRAS €? O THEN 470 
M05 1 8 <> v THEN 420 

A10 IF Z o 3 DN 430 
4190-21 

416 COTO 429 

ATU IF HIK, 291). €) O THEN 430 
400 Xe INTIRNDUO n $ € 3 5 
440 ON X QOTO 750 , 640 , $10 
AUD X e JMTC RNOLD n Zei A 
dé ON X GOTU 790 , 650 

470 1F § <> V THEN 490 

4u0 If Zei THEN S20 

4 0e«1 

496 GINO $00 

470 IC HIR, Bei) <> O THEN $20 
$00 Y e INTE ANDID e Qe $5 


$10 OM X 0050 790 . 910 

$20 GOTO 770 

$30 LE SI ~ O THEN 670 

SAO IF Q(R,9-1) <> Q THEN 679 
$49 IF R ^ THEN 416 

547 IF Val, Si <> O THEN 610 
$36 IF $ <> V THEN 560 

$32 IF Z o 3 TEN 590 

2954 0 9 | 

$56 GOTO 570 

$60 IF (R, 693) <> O THEN 390 
370 X e INT C RID) e 3 e b o 
$60 ON X GOTO 020 , Dé6 , $10 
$90 X » INT ( nix) "2e 1 9 
€00 ON X GATA 620 , Bä 

410 1F $ ^» V THEN 630 

670 IF 1 ^ | THEN 060 

6z dej 

427 00YO 649 

630 IF WR. S1) <> 0 THEN Ac 
Zap X a (NT € RHDCC) M2 els 
Gët W 1 LOTO 620 , 910 

Zéit GOTO 920 

670 IF R » H THEN 740 


490 IF WIR»1.5) <> O THEN 240 


6€3 IF $ 3 V IEN 700 

490 IF 7 © 1 THEN ?30 

695 0 ^ 1 

$97 GOTO 43% 

700 IF M(f, 9*1) <) o THEN 730 
710 2 © INTL HDi i ^ 2e 1 
320 ON X GOTO 660 , 210 
730 QOTO 8650 

74017 3 <> V THEN 740 

720 IP 1 œ THEN 700 


"75$ 0 2 | 


7$? 06010 776 

TEO IF WR, S*1) <> O TIEN 760 

770 GOTO 910 

790 GOTO Long 

790 M(R-1, 92 "^ C 

800 C a Csi 

$02 VtR-1,$) " 2 

004 R n Kk-1 

$10 IF C = HV * t DEN 1010 

gi96*90 

8146 0210 260 

820 NR, « C 

ex c es Cel 

CAO WR,S-1) ai a 
KL 

9441P C » HaV € 1 THEN 1010 

9% Dao 

854 GOTO 260 

Ben QtR*1, 5) ac 

970 Cette 

C£?» IF V(R.$) m O TIEN 990 

875 VIRS) = 3 

GOTO 690 

vati a2 

fa ei 

It e neve 1 THEN $619 

Georg 530 

If Det DEN o 

[XD 

e cei 

WF VIK £9 e O THEN 749 

950 VIR, A a 9 

13% Gei 959 

940 Vi, $) si 


13 — Microcalculatorul personal aMIO — voi. TI 


TO he Set 

952 IP C e Weu e $ THEM 1010 
en 9010 240 

O 1 et 

VIO IE VIR. $1! e O UEN 969 
$72 V8. $9 n 3 

EE 

276 00r0 1000 

los vip, ét va 


1000 WTO 210 

3010 FOR A ^ 1 TO v 

30431 PRINT *t 7: 

1082 FOR t œ 1 YO W 

1013 IP VILJ « 2 TEN 1090 
1020 PRINT * *, 

102) 0010 1040 

1030 PRINY *1 *, 

1040 M&XT | 

104) PRINT 

1043 FOR 1 o | TO M 

1045 IF vi. e O THEN 1949 
1050 IF Vit, J) e 2 THEM $ 
1054 SCH Wf! 

1032 00r0 1970 

1040 PRINT *1-*4 

1070 MEXT 1 

1071 PRINT =. 

1072 NEXT A 

1973 $10P 
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13.12. Mastermind 


Jocul este o variantă adaptată a celebrului MASTERMIND, care soli. 


cită determinarea unei combinaţii de 4 culori într-o ordine anumită, din 6 
culori posibile. Adaptarea s-a făcut pentru determinarea unei combinaţii de 
4 cifre din 6 posibile. Setul de cifre posibile este : 
„ 1, 2, 3, 4, 5. Se introduce o combinaţie de 4 cifre ; programul compară uceastă 
combinaţie cu propria sa combinație stabilită prin randomizare la începutut 
jocului. Se afișează un "*" pentru cifră corectă în poziție corectă, sí un ,--* 
pentru cifră corectă în poziţie incorectă. Se admite ca aceiași cifră să apară 
de mai multe ori în cadrul combinației de 4 cifre. Scopul jocului este de a deter- 
mina combinaţia corectă din cît mai puţine încercări. Se afișează la sfirgit 
numărul total de încercări. 
9 DIE 
10 FPRINT* HAS TERMIREÉ* 
19 PRINT * GASITI PATRU CIPRU [i e 
20 PRINT * SASD POSIBILE 0,1,2,3,0,8 * 
99 PRINT * RASPUNSUL LA O 
20 PRINT * » e NR. BUM LA LOC O 
PRINT ° e e WR, GUN LA ALT kb id 
Ké Atan, " 


FOR Zeit 
Ye intant ne 


Leg 

PRINT * DATI O INCERCARE * 
* Lei 

MAT INPUT A 


K*0 
J*6 
100 FOR Zei TO 4 
103 IP Miz» Co» 3 THEM ua 
LR 
115 NBXf 2 
120 IF 3 » O THEM 123 
123 FRIMY * COMBINATIE ERONATA * 


140 BIR) = ABSCOCD) —— 
34$ LF MÄI C BiZ) THON 163 
TIO K = Ki 

199 At) > 7 

140 Bił? = HE 

143 NEXT Z 

170 FOR 2 » | T0 4 

1750 »0 

190 FOR M *» 1 TO 4 

195 IF AUD = 7 THEN 218 

190 IP AIR) <> 802). THER 21$ 
195 IP 0 <> O THON 215 

200 J e fei 


ri 

219 NEXT H 

220 NEXT 2 

230 iP K ă 0 (RN 230 
FYS POR X 9 1! TO K 
240 PRINT *v*;* *; 
243 NEXT 1 

2730 IP 3 * O THER 270 
253 FOR t * | TO J 
260 PRINT ses *; 


275 IP X < 4 TH6M 90 

200 FRIN? * ATL GASIT DIN A4 

205 PRINT * LNCERCARI * 

290 PRINT * BORITE ALT JOC (UA/NU) * 
300 INPUT pa. 

30$ (P 9e > "BA* TMEM SO 

310 sto» 

320 geg 


Vinătoare de vulpi 195 


13.13. Vinátoarea de vulpi 


Programul trasează un careiaj de N X N dimensiuni (N =10—39) lu care 
plasează În mod aleator 3 vulpi. Scopul jocului este de a determina coordo- 
natele vulpilor din cit mai puține încercări. O încercare se specifică prin coor- 
donatele punctului (X, Y), după care programul afișează un "/^ pentru punct 
liber, sau un *X" pentru vulpe găsită. Se totalizează la sfirșit numărul de 
încercări. 


S DIR Até2,CC2) 

10 (NIE 

20 n = INTtRNOCONTQ) 

30 IF N de 10 THEN 30 
KL 

$0 FOR » t 704 

60 AI) = INN ugi 
70 IR A(1? < W THEN 100 

90 Act) s At): 

vo Goro 70 

100 A 90 

1430 IF 1 c» 2 TRSN 170 

120 FOR J > I TO 1-1 STAP 2 
130 IP aci) <> ACI). THEN 130 
140 "s 1 

190 NEXT J 

160 IF M <> O THEN 60 


210 intre 

?20 UIN8OU -10,N*10, -10,N*10 

230 PRINT ATCL,12,* VINATOARE BE VULPI * 
940 PRINT AT(I2,01);* GASITI TREL VULPI *; 
245 PRINT "INTR-O ZONA DE *;M;*/*;M 

Zap ROR î » O TON 

240 NOVE 0,1 ` 

270 DRAU M,1 

200 Hove î,0 

270 DRAU I,N 

300 NEXT 1 

ALO PRINT AT(20,1):* * 

320 PRINT ATI2G0, L2; *. COORDONATA °; 

330 NAT INPUT B(2) 

940 9 * Mel 

390 FOR J » 1 TO 9 $TEP 2 

360 IF AC) <) Bi) THEM 330 

170 IP ACJ*1) €» BCI) THEN. 330 

390 | > wm /2)* 

0 iP CCI) + 0 TRUN 420 

409 PRINT AT(20,0)," 9ULPB DAJA GASITA * 
410 0070 320 

420 PRINT AT(20, 0);* ATI GASIT O voted * 
430 Cil) * 1 

440 NOVE ER GU 

4530 DRAU B(12*1,8(2)*1 

460 HOVE 8t12,9t210] 

4?0 BRAU B41291, 802) 

490 V * Bei 

*490 IP V €) 3 TNUM $20 

$00 PRINT * ATE SASIT OIM "Ve 

$05 PRINT *INCERCARI * 


S90 NEXT J 

$40 IP N <> O THEN 20 
390 ROVE 51125,0022 
$40 DRAV 041390, Biet 
570 GTO 310 

*40 nh» 
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13.14. Verificarea vitezei de reacţie 


Programul afişează intr-o poziţie aleatoare pe ecran o cifră (9—9) și- 


aşteaptă un timp determinat introducerea aceleiaşi cifre da către operator. 
Se solicită initia! viteza de joc (1—5), viteza 1 fiind cea mal mare. Se 
afişează permanent scorul pe ecran. Din start, jucătorul primeşte 5 puncte. 
Pe parcurs, modificarea scorului decurge astfel: 
'— pentru o cifră introdusă corect, se adaugă un punct ; 
— pentru o cifră incorectă, se scade un punct; 
— pentru nici o cifră introdusă in intervalul de așteptare, se scad 2 puaote. 
Oprirea programului are loc la atingerea scorului nul. 


3 

10 PRINT "RAP LEe XUL * 

13 PRINT * 268 ARISEAZA ALEATOR O CIPRA *; 
20 PRINT ER ECRAN * 

23 PRINT * DATETI CIT NAI REPEDE TASIA -, 
30 PRINT *RESPECTIUA * 

RUN START PRIBITI 5 PUNCTE * 
+t PUNCT LA TASTA BUNA * 


1 PUNCT LA TASTA ERONATA * 
aa PRINT * -2 PUNCTE BACA MU TASTATI * 
43 LS 
90 PRINT * BATI VITEZA BG JOC (1,2.2,4,5) ° 
aa INPUT M 
40 wirt 
49 PRINT ATIII REP La XUL * 
70 run ATI2,L);* SCORUL: sit 
UP L € $ THAN 
BO A © IHTIRHOIXNI=ND) HAG 
95 89 « (MHEY+ 
90 X a (NÉIER P2404) 
99 Y > INTIRNUDOO2900) 
100 PRINT AT(X, TO CHRS CAD 
105 AS + (ër 
110 FOR i «1 TO 100«N 
119 Ian <? 0$ THEN 125 
120 gn ~ tmkeYs 
129 NEXT i 
130 IR 89 e A9 THEN 195 
135 0.0 
140 FOR I « 0 10 9 z 
145 IP D$ e STRSCIDO FHGN 133 


a 
v 
E) 
D 
z 
4 
e 


150 ¢070 165 

193 IF 1 (> A-49 THEN 163 
140 0-1 

163 WEXY I 

170 IR Q e | THON 105 
173 L » L-1 


300 POR 1 = | TO Neien 
209 REN * PAUSE * 


13.15. Perspico 


Jocul constă in alinierea a trei U-uri in linie sau diagonală, in cadrul unui 
careu de 3X3. Fiecare căsuţă din careu primeşte un număr (1—9), utilizat 
pentru indicarea locului în care se plasează O-ul jucătorului. Ga răspuns, pro- 
gramu! plasează un X într-o poziţie defavorabilă pentru jucător, cáutind 
la rîndul său să alinieze trei X-uri. La sfirgit se afișează cigtigátorul. 


Perspico | 97 


9 PRüINT*P&»3»,1!tC0* 299 093 

10 DIB t9?1,Pc9) 205 pes: 

EW IO 290 gosue 340 

20 PORA 11095 295 Cosa 

23 HELD -A 300 Bas 

30 NEXT A 00$U9 340 

IS MAT P » 208 329 e0809 

+0 8*0 31$ EA) 

4$ 0*9 320 60408 340 

30 M» OQ 9135.6 * 3 

$$ x4 3309 9 7 

eO PRINT AT, 23); 9333 Beza 

43 PORA- Ta? 340 GOVO 240 

JO IP A X THEN 90 343 0 » OU E 

79 LA GIA) = O TRBU 310 330 if 0 « 3 TUM ao 

90 IP 8:4) e 30 THEN 120 735 0070 213 

$3 0070 130 240 s-o 

*O X * Xe2 3490 5 | S 

93 PRINT 370 POR A * C TO B STOP P 
100 PRINT WI ON, 31e 379 8 e DAJII 

103 Goto 75 200 NEXT A 

110 PRINT *0*;* o, $03 18 = 9 

149 GOTO 135 390 If 08 ^ 0 

420 OM NM 399 IP B ^ 6 

123 GOTO 13$ 400 1*8 ^1 

930 PRINT (ITM 493 în 822 

133 NEX? A 430 I 0 2 2 

140 IF N » THEN 210 1*i$iP geg 

143 If B <> 9 tuan 140 320 I 4 * 3 

190 PRINT ATi13, 12,7 AN CISTIGAT 423 IP Net VEEN 470 
135 0070 445 430 in B a 4 TWAN. 470 
180 PRINT 47019, 15; * MUTAREA * 439 ROTURN 

145 INPUT 1 440 PRINT AT(19,1)4* ATI CISTIGAT e 
170 IF iz: O 2 TUS 165 443 PRINT 47(02,1);* BORITE ALT 30C tao) * 
DEM NN 430 (pur 9 

190 9 : Gei 433 IP 8 » TUB I$ 
193 811250 460 $TOP 

190 PI) 0 470 FOR A » C TO B evar pP 
199 IF O ce O rann aa 473 IP BIAI C» A THER 300 
290 PRINT R1(13,12;* REWIZA 490 tP U » O run 300 

309 0070 «75 463 Sia) e 10 

23190 ^ 0 490 Pia) a 4 

333651 499 H e a 

2208 9 7 500 NEXT A 

225 Pen 303 ooro se 

230 609508 340 310 Bun 

2333 te? 

240 b ^ 8 

2933 003U8 340 

LEI 

239 0 o 9 

240 GOLUD 340 

3433€ 51 

20 Po. ^ 
275 00308 340 


13.16. Cursa de obstacole 


Se conduce un mobil printr-o configuraţie de obstacole generată aleotor 
pe ecran. Deplasarea mobilului are loc de la dreapta la stinga ; jucătorul are 
posibilitatea de a muta cu un rînd mai sus sau mai jos direcţia de înaintare, 
upăsind tasta S, respectiv J. Dacă nu se apasă nici o tastă, mobilul tgi.continuá 
deplasarea în linie dreaptà..La lovirea unui obstacol, se opreşte înaintarea 
şi se afişează scorul. Valoarea scorului indică distanţa parcursă pină la levirea 
«bet acolului. După parcurgerea unui ecran complet, sc reia mișearea mobilului, 
modificînd locu! de apariţie a! acestuia și combinaţia de obstacole, 2 
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10 PRINT ° CONDUCETI UEHICOLUL PRINTRE *; 
13 PRIMY “OBSTACOLE 

70 PRINT * VERICOLUL P BIRIJEATA CU *; 
23 PRINT *TASTELE * 

30 PRINT * $4309 , LEE EK 

40 mes UE H 


+0 E H s 2ER 


E DIN k * | To 30 
X e iNT(RKD(OON29)0! 
100 ECO CD DEE 
110 PRINT ATCA Y), °P" 
120 x Y) * | 
130 NEXT A 
140 P © INT(RNDULOP29)e1 
150 POR A * 30 TO 1 STAP -1 
160 PRINT ATCP, AD) *C* 
170 IP HEAI 9 L THEN 310 
100 PRINT ATCP, A) fer 
190 19 » iNX6YS 
200 IP 19 » * * yuh 490 
210 IF 19 e *J* YHEN 260 
220 IP 1€ <> *9* THEN 290 
230 IP P *.| TREN 200 
"940"? e Psi 
* 250 €0TO 200 
"240 1P P » 30 THEN 200 
270.9 * pei 
"Re 
NEXT A 
Ger 40 
310. POA 2 = | TO 20 
320 PRINT ALE, A); *0* 
330 PRINT Ar, Air * 
340 'MüxY $ 
390 PRINT AT(2v,1),* SCORUL *;$ 
340'PO0R 1 e 1 TO 100 
970 REM * tiNS * 
300 MEXT 


xv 4 
390 0070 30 
500 8D 


13.17. Tragerea la țintă 


Pe ecran se afişează o ţintă, considerată ca fiind în faţa privitorului. 
Se introduce viteza iniţială a prolectilului şi unghiul inălțătorului. Programul 
consideră tinta ca fiind la o distanţă aleatoare [aţă de trăgător. Din datele 


in'roduse, pe baza formulei : 


S=V$sin ofg(] 


unde : 
S este distanţa parcursă de proiectil; 
Ve este viteza inițială ; 
o este unghiul înălţătorului; 
g este acceleraţia gravitaţională. 
Se determină dacă s-a atins sau "ou tinta. 


Dacă ţinta nu a lost atinsă, se afișează distanța la care a căzut proiectilul 
faţă de ţintă (,-" pentru lovitură prea lungă, ,—" pentru lovitură prea scurtă). 
Se canită lovirea țintei din cit mhi puţine încercări, pe baza coroborării datelor 


faigate pentra loviturile în gol. 


c- o. > Tragerea la țintă 199 


ILI 
20 PRIMAT WEI, IONS TEN TA ^ 
30 PRINT er, 13); re 


ap PRINT EA, 1010; M 
90 PRINT AT(S,1007; . 
40 PRINT ATi, lO); e 


70 PRINT ATIB, Lie VIFEZA UNGNIUL en 
75 PRINT ®© BUSTA 

€0 PRINT erg, ART wa ae ARES DEVE VR D 
$5 PAINE Aessen em ve D 

$90 Ne 19 


oo € 

110 HE . — 3000130) 
120 K = Kòl 

123 Le " GZ? TH8N 130 


D 
13 Fatu AT(3,22),*5*,0,*«* 

140 PRINT Artiëeg, 00, * 14; 

130 ("eur v 

140 (P 0 410 THEN 140 

170 PRINT AT(100,10)) rh 

100 INPUT V 

190 IP U < 3 THON gc 

200 IP U > 09 THUN 

210,3 * ITE 2e IM eg/sQ1r*. e» 
2208 e 1-X 

230 PRINT ATLIO«K,20)08 


aso 

240 0070 120 

270 PRINT 4T113,12,* MINERIT * 

2€0 PRINT AT115,1);*. BORITI ALT JOC tipat * 


i 


13.18. Ecranul magic 


Programul permite Lrasarea oricăror figuri compuse din drepte orizon- 
tale și verticale, pornind dintr-un punct dat inițial. Deplasarea punctului este 
coordonată de tastele : 

1— dreapta | Ze jos 

2— stinga 4— sus 

Punctul se deplasează coutínuu, oprirea trasării făcindu-se priu apăsarea 
oricărei taste în afara celor de mai sus. Reluarea trasării se face prin apăsarea 
oricărei taste de comandă a direcției de deplasare. . 

Direcţia de deplasare poate fi completată, pentru a avea posibilitatea 
trasării sub un unghi oarecare [aţă de orizontală. Dacă se doreşte o trasare 
la un unghi de 45° în direcţia dreapta-sus, se introduce linia 105 de recunoaştere 
a tastei "5": 


195 IF A$ «''5'" THEN 599 

La linia 599 se introduce secvența de trasare: 
500 REM “DEPLASARE 45 DREAPTA SUS“ 
519 B$= INKEY $ 

528 IF Y-100 THEN 579 

599 IP X:«186 THEN 576 

M X=X+1 

559 Ye Y-1 

50 DRAW X, Y 
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579 A $ — INKEY$S 
539 IF A$ B $ THEN 529 
599 GOTO 6p 


Programu) poate fi generalizat pentru trasări pe alte direcții, trasări 
de linii curbe etc. 


a wi 
30 PRINT Ar, (is SCRAN Magic © ` 

13 PRINT A102, 02;* Le DREAPTA” t 

20 PRINT AT(2,12)* Ze $TINOA a $ 

23 PRINT AT(4,1),* De J03 * 

30 PRINT AT(S, 127* de $US e . 

33 PRINT ATC6,1),* COORD. 98 INCEPUT ou 
4G INPUT X,Y : 

43 gau X,Y 

$0 Aë e qNKGYS 


90 IPA 2* TWEN 200 
30 IFAs 3* THEN 290 
100 tP A9 = *4* YHON 240 


110 0070 30 

920 REN * DOPL. DREAPTA * 
130 8€ e iNK8YS 

140 1f X = 100 TREN 170 


180 IFP A$ e 89 THEN 140 
190 GOTO 30 

200 ABN * DEPL. STINGA e 
210 89 « Lakers 

220 IP X » O On 250 
220 X * X-1 

240 BRAU X,Y 

250 A9 e (Re 

240 IP 49 o 89 THEM 220 
270 0070 so 

200 RON * DEPL, 308 e 
290 Bs o INXATS 


P Y a 100 TRIER 4410 
* Yel 
R 


13.19. Nim 


docul Nim — originar din China antică =— este cunoscut şi sub numele 
de Fan-Tan. 

Se generează într-un număr oarecare de grămezi un număr aleator de 
obiecte. Jucătorii (în cazul de faţă operatorul şi calculatorul) elimină cu schim- 
bul obiecte din grămezi, şi anume cel puţin un obiect (cel mult toată gr&mada), 
dar la mn moment dat numai dintr-o singură grămadă. 

Ciştigă cine scoate ultimu: sau ultimele obiecte din ultima grümadü 
rămasă. 


201 


———M———ÓM—Ó Á— —M À—— M ——á 


O grămadă de obiecte se reprezintă printr-o linie de; asteriscuri (un aste- 
rise reprezintă un obiect). Numărul tota! de grümezi se stabilește de operator 
la începutul fiecărui joc. Numărul obiectelor din fiecare grămadă se generează 


aleator la începutul jocului. 


10 DIN At10),8(10,9),0t9), VIe 
UEL Ob KAES WM 
920 PRINT * CU CITE ORAMEIT JUCATI? * 


v 
REM * O&HERAREA ORAMEZILOR * 
Y * 1 TO N 

INT: RNOLX) e 20 9 
* 0 THEN go 


i 
3 


100 PRINT “ DIN CARE GRAMADA $3 CITE e 
105 PRINT * OBIECTE LUATI? * 


120 IF 1 > N THEN 220 
32p IF I < O THEN 230 
140 SF K > ALI) THEN 230 
IZO IF K € t THEN 230 
940 VC) = K 

170 009U9 650 


100 REM * JOACA CALCULATORUL * 
190 oam 1300 

200 0025 630 

210 IF C 4» O mn 220 
220 0070 9*5 

220 PRINŢ * EROARE * 

240 COTO 95 

270 JF C e -1 THEN 320 
200 PRINT * An CISTIGAT * 
210 9TOP 

320 PRINT "Ai CISTIOAY * 
530 STOP 

€20 FUR E » t TO M 

$50 AUI) a AUD ovi 

470 VIII ^ o 

e» EXT t 

e^9 RETURN 

300 MAT B 9 ZER 

1550 MAT O > ZER 

1500 FOR (J ei YO N 

1390 M m Atu: 

IAO FOR 1 a 3709 

1410 DUT) e n - INTE 22 02 
1420 M œ INTE ma) 

1430 Otih « DU. DD) + Otio 
3440 IF OLI) > t TIN 1460 
14*0 GOTO 1479 

1420 Qil) eo 


1470 MEXT 1 
1475 NEXT U 
ISS EE 


1405 FOR U.» 3 To 1 STEP -t 
1490 IF OU) O O TIEN 1910 
3700 OOTO 1530 
1%10 W a U 
1920 ua 
1530 NEXT U 
159401F 4 <> O Ben 1570 
1330 00*5UB 1600 

RETURN 
1370 COGUO 1730 
1350 RE URN 
1600 U wO 
1686 ren J =N TO 1 STEP A 
1420 IF AJ) <> O THEN 1640 
1530 GOVO 1440 
1446 8 » A 
1530 Aer 


1660 OR 
347^ IF € *» O THEN 1700 

3«20 ce-i 

Sac FA URN 

Vin € e O 

(UL ST 

ICKIZIER TRIER GOUT OT TI 
1220 RETURN 

1730 63 «0 , 
1740 FOR l 9 1 TON r 
$745 1F Mib € A THEN 1960 H 

1730 BIL «0 ` 

1732 Ve i 

1799 1 5 N 

1760 wu I 

1770 FOR J e W-1 YO 1 STEP ~} 

1779 IP OLJ) ^ O THEN 1790 

1700 BIU, J) » 4 - Bue Ai 

1790 NEXT J 

1775 lau 

1900 FOR J ep TO I STEP -1 

1010 VII) e 2 n WE) e Bt, 

1920 NEIT J r 

1630 VIL) e AGO = vL 

1940 8^0 

1950 FOR J « 1 YON , 
1840 ga Boat) - vi) "e 
1070 MEXT J 

1800 IF 9 = O THEN 3910 > 
1970 C ed L 
1900 RETURN r 
WPI0 Cat 

1920 RETURN 

2990 FOR I ^ 1 TON 

2060 IF ALI) = o TEN 2100 
2070 FOR J * 1 TO ACD 

$900 PRINT "na 

2090 NEXT A 

2100 PRINT 

2110 vii) e 0 

2120 NEXT 1 

2130 RETURN 
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13.20. Turnurile din Hanoi 


Jocul este cunoscut şi sub numele Acele Faraonului și constă în a trans- 
“tera un set de discuri aranjate în ordine descrescătoare a mărimii lor de pe 
„primul ac pe al treilea ac, utilizind ca element ajutător acul din mijloc. Regula 


160 F£H " tUe mILE DIN HANOL * 
120 DIM TOV D 


120€ "0 
V90HAT Y e LER 
140 PRINT * TURNURILE DIN HANOI * 
ETE Leg PRIN) * DISCURILE SE HUTADIN STINOA ` 
195 PRINT * IN DHEAPTA $1 NU SE PUNE DISC r 
160,PRINY " MAT HARE PE DISC MAL HIC " 
200 PRINT" QU CITE DISCURI JUCATE? (MAX, JO) * 
210 UPUT S 
2390 M eo 
240 1F $ 3 0 TIEN NO 
230 MAO 270 
240 IF $ colo TIEN 320 
270 £ a Er 


280 IF £: 2 NEN 310 

290 PRINT " DATI Maut CORECT A - 10 * 
200 org 200 

310 PRINT " NU JUCATE CORECT * 


320 STOP 

350 PRINT ^ IN PROGRAM DISCURILE SINT BOTEZAYE * 
340 RINT * PRIN ERE ZECIMALE 1 LA 10 v 

.370 trëtt e DACA JUCATI CU HA? PUTIN DECIT x ki 
3900 PRINT " VETI JUCA CU DISCURL UE MUNERE CELE 

ze PRINT * MAL MARI r 

360 FRINT * HUTAT] DE PE ACUL 1 PE ACUL D 
400 Y » 10 

410 D » 10 


420 Fim X e $ TO 1 STEP dl 

430 TI, ap 

440 De D-i 

4S0 Y e. Y-1 

460 NEXT X 

470 00549 3240 

490 PRINT AT(27,1)1" CARE DISC IL MUTATI? rn 
doot eo 

$00 IUT D 

510 AF D > 10-9 THEN $30 

5520 ooto 540 

£20 IF D 4» 10 THEM $90 

$40 PRINT " VESC INEXISTENT * 

30 E e Eti 

S60 IF E ? 1 THEN 310 

$70 WIO 480 

$90 REM " VERIFICA DACA DISCUL € GUO ALT DISC * 
Gas A n 10 

$^o0B-3 

sen FRR » t TO 19 

600 FOR C *» 1 VOI 

$03 IF Tif. C) <> D THEN 430 
shank 

65 bec 

6?0 R » 10 

4a$ 2593 

Gu EXT C 

«475 VERT R 

440 IF TtA-1,B) 4» O THEN 670 

2,45 0010 Ze 

679 PRINT " DISCUL E CUD ALT DISC * 
4^6 COUTO 420 

twtr o 

710 FRINT * FE CARE AC 1t. MUTATI? cn 
720 INPUT M 

720 1F (I- 10€ (N-2) w(N-3). e © THEN 000 
740 E s Est 

79^ IF E ? 1 THEN 310 

?40 PRINT ” DATE NUMAR CORECT 8. 2. 2.7 
770 0010 740 - 

"Bo A a Oo 

pe roR R= 1 TO 10 
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910 IF T(N,ND = O THEN em 
gis An 


934 MEM * MARE PE MAI HIE 

WAO IF D « YtA,N) THEN 970 

$30 PRINT - DISC MAI MARE PE HAL MIC NU SE POATE * 
$60 GOTO 390 


33 


Un 1 TO 10 
TIUN) = O THEN $90 
U-1 

19 


$9256 
FE 
ER 

E] 


HIS 
RR 
5 


270 T!X,N) e T(tA,8) 
990 T (4,9) eo 
So fh " TIPARESTE STAREA ACTUALA * 
16 GES 1240 
1910 ne Hei 
1033 A”0 
1920 FOR A « 1 TO 10 
3090 FOR € ~ ! TO 2 
1040 IF TIR,C) e Q THEN 1040 
WIO A si 
1060 NEXT C 
1070 NEXT R 
1060 IF ^ Oo THEN 1120 
1090 IF M ca 2*9 THEN 
PRINT * ATI DEPASIT NUMARUL DE PAȘI MINIM * 
1103 PRINT * NECESARI " 
1110 $10 
IIM PRINT * ATI REZOLVAT IN ru: PABI 7 
1144 PRIN? * MAL JUCATI? (DA7NDD) * 
11729 INPUT ag 
1360 IF A9 e “DA” THEN 120 
1170 STOP. 
1240 îNIIP 
1290 A œ 26 
1240 FOR F ~ JO 7O 1 STEP «a 
13270225 
1299 FUR Jet TO 2 
1220 F Peri * O THEN 1340 
3300 FKINY ATLALZ- 1HECT UU, Jo /29 e L0 t 
3310 FER V * 1 TO RAL ZE 
315320 PEINT "ann 


4 222. VRINT 
13699 RETURN , 


de bază a transferului specifică obligalivitatea mutării unui disc mai mic peste 
unul mai mare, niciodată invers. 

În jocul realizat pe calculator se permit maxim 10 discuri. Discurile sint 
reprezentate prin asteriscuri. Numărul de asteriscuri care formează deen) i 
reprezintă mărimea discului. Pașii necesari pentru a termina jocul sint 2*!, 
unde n reprezintă numărul de discuri în joc, Dacă iucătnrul au termină in 
mumăr de pași necesari, se opreşte jocul. 
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13.21. Jocul cu trei grámezi : 


Se generează trei grămezi cu diferite numere de obiecte în'fiecare grămadă. 
ducătorul mută dintr-o grămadă oarecare într-o altă grămadă un obiect în 
contul unui obiect din a treia grămadă care se elimină din joc. Initial cel puțin 


3 tutti 
19 Front 
52 PRINT 
KK Ou 


PRINT 7 MUPRFILE DE UBIECIE MM ELE * 
23 PRINI * „aut CONSTA IN A MUTA UN OlikcT * 
20 PRINT " DINIR-O GRANADA IN ALTA IW: 
I PRINT * CUMUL UNUL OVIEC) DINA TREIA > 
40 PRINT * CARE SE ELIMINA DIN JOC = 
ASERI 7 $600. ESTE [E A AJUNGE LA DOUA * 
WO PRINT " GORANERI (GA € 31 INA Eu e 
95 PERINI * SA KAMING UN SINGU OBILCI * 


90 IRINE * GRAMEZILE AE INDICA PRIN 1, 2. tr 
SU tim tar 

*OÓ 1009 e INTE RH A) a 19 e 
99 129 e (INT. (OUDUO. a 19 
100 tt»? a INT ( RNUOD > t 
ICS N a INTE RHOIR) "2 6 1 
110 M « INTE PNDOD Bes 
113 1F N 9 entgoe 
LI 

IF P su THEN 140 

IF P» n THEN 140 

GOTO 150 


D 
hd 


IF INTCUUD 72) a T(U/2 THEN 163 
AF. INTCTUD/2). © TOD/2 THEN. 190 
6010 ous 
WM gm 01 00/2) e INIR Te 175 
«010 205 
it OINTUPLOD 729 C> TUS /2 THEN 208 
ILP) e INTE RIDO e dela 
eno 123 
IF ÎNC /20 a T4P)/2 THEN 203 
FIP) a WII Më n 19 e 19 
60g 399 
(Int © INCEPEM UN JOC (DA a (9) * 
quor o 
IF Det THEN 225 
90!0 219 
inte 
Isi 
Dr AT DTE” e fS e TOR 
tele 
IF €C pe THEH 293 
»10 Zon 
Wü ATI, 2917 e 
INT AT (30, ^ UIN CARE - IN CARE " 
font ATO 203 
Iwyr DE 
Dak IN 255 
IF O > & IHEN 755 
IF E > 3 THER 225 
Ueo 
FOR J* 3 TO 3 
» t€ 0 = J THEN 310 
IF E <) J THEN 310 
Tt a TUO ei 
0010 219 
60 es Pl zs) 
M YJ) e = THEN 390 
NEXT A 
^ IF Qai THEN 410 
Dino 
345 Leo 
330 FOR J « 1 103 
SI 19 It €» O CHEN 350 K 
ag Kette? 
Sa (ln 358 
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Iwa - Mt» 
Dë Mai A 

en if à c» 2 THEN 235 
Yt It e 1 THEN 380 


970 FEINT Aide, II S NO ATI A s 

SR LENT RNS LA REIULTAT. De 

Sei FRINY ATCIO, 1930 ATI ARDS LA - 
PLE. RE£PULTAT. tim 

9%0 END 


ín două grümezi trebuie să existe obiecte. Scopul este ca în final să rămină 
un singur obiect într-o grămadă, celelalte să fie goale. 

Se poate demonstra că dacă in toate trei gră'nezile există inițial obiecte 
în număr par sau impar (deci sint de aceeași puritate) atuuci jocul nu are 
soluție. Dacă la două grümezi paritatea este aceeași şi a treia are altă paritate, 
jocul are soluţie si in fina! acele grămezi vor fi goale care au avut aceeaşi pari- 
tate, răminind un obiect. în grămada cu paritate diferită. 


13.22. Ruleta vis CRM 


Un joc clasi. de noroc este ruleta. Simularea pe calcula or scoate in 


evidență doar țelul ca jucătorul cu suma de bani inițială să rămină clt mai 


mult în joc, nu latura de noroc. 

În cazul de [aţă sc generează aleator numărul și culoarea ciştigătoare. 
JucàLorul poate miza prin numere între 1 şi 50 cu 5 pină la 500 de unităţi de 
bani cu mai multe mize. Iniţial jucătorul are la dispoziţie 1 000 de unităţi 
de bani. 

Mizele sint după eum urmează. 

— pe un număr se poate miza cu nuinărul respectiv (1 pînă la 36), pe 0 
sau 89 se mizează cu numerele 49 respectiv 50. Ciştigul este de 35 de ori miza. 

— pe numere între 1 și 12; 13 și 24; 25 şi 36 se mizează cu codurile 37; 
38 respectiv 39, ctştigul fiind dublu. 

— pe numere în prima coloană (1, 4, 7, 10...) în a doua coloană (2, 5, 
8. 11....) şi în a treiz coloană (3, 6, 9, 12...) se poate miza cu codurile 40 ; 
4t respectiv 42, ciștigul fiind tot dnblu. 

— pe numere inire | si 18 ; 19 și 36 se mizează cu codurile 43 respectiv 
44 clytigul fiind doar miza 

— pe număr par sau impar se mizează cu codurile 45 respectiv 463 
pe roșu sau negru cu codurile 47 respectiv 48, cistigul fiind simplu. 

Pentru fiecare miză făcută de jucător trebuie să se indice două numerea 

— prima reprezintă codul (număr intre 1 si 50) 

—a doua reprezintă valoarea mizei). 
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Bt100), 04100), T41000,,x128) , AC) 
* ZER 


100000 
NT ^ CITE MIIE FACETI? * 
Y 


€ b THEN $0 
€» INT(Y) TIEN SO 
> So THEN 50 


3823522355 


160 FOR C = 1 TO Y 
MO PRINT" RR Ia 

120 INPUT X,2 

130 DCH 9 2 

140 Tt) » X 

1$0 1P X € 1 THEN f10 

IF 3238 THEN t10 

470 IF X «* It THEN 110 

100 JF 2 « 9 THEN 110 

490 1f 2 O INTIR) THER 110 

210 IF 2 > 500 THEN 110 
220 1€ AUD» 0 THEN Zon 

230 PRINT " ACEST COD A NAL FOST * 
240 O0TO 116 

280 AQ el 

240 EXT C 

270 PRINT 

275 PRINT "nupun $t INVIRTÉ POATA ewanu* 
27€ PRINT 

290 $ mi + INTt390VRNDUOO 

290 Y($) e us) 

300 IF $ < 27 THEN, 940 

310 IF $ » 37 THEN 340 

320 PRINT " CI9TIO^ op" 


D010 490 
940 PRINT " CISTIGA or 


490 IF K « 1 THEN 470 

440 A9 vw *NEORU* 

ASO PRINT * CISTIQA är" - ";^9 

440 GOTO 490 

470 Aë sr ab: 

400 QOTO 490 

490 PRINT 

$00 FOR C » 1 TO Y 

$10 IF TIC) < 97 THEN 1400 

*520 ON T(C)-36 OOTO 360,460,710, 760,940 
525 ON T(C)-41 OOTO 920, 1000, 1070, 1110 
5590 ON T(C)-45 OOTO 1130. 11190,1270 

540 OOTO 1400 

$60 REM * 1 = 12 (COD 372 211 * 

570 19 $ to (2 THEN 820 

Sen PRINT ^ PIERDERE "pc: DANI CU MIRA * 
$90 D ebe BC) 

600 P » P - BC) 

610 000 1940 

420 PRINT * CIST10 ";B(CI«217 BANI CU MIZA r 
6% D * D - BICH? 

640 P e P e BMG 

430 OOTO 1940 

640 REM * 13 -24 (C00 39) 211 " 

670 IF $ 212 THEN 4% 

490 gra 559 


490 IF * < 25 [MEN 620 

700 9010 tao 

710 REM + 25 ~ 34 (COD 29) OU 
720 IF 83 24 THEN 740 

730 GoTo 580 

740 IF S « 37 THEN c20 

750 0010 *99 


700 RGM * PRIMA COLOANA (COD 40) 2:1 * 
770K 0 

760 FOR 4 m t TO 34 STEP 3 

770 IF 3 €» | MEN 610 

POD Ka. 

010 NEXT 1 

020 IF Ko THEN $20 

930 9010 $60 

$40 REM * COLOANA A DOUA (COD 41) 2117 
GIK ao 

960 FOR l » 2 10 55 SIEP 3 

970 IF 9 € 1 THEN 090 

eso K e 1 

690 NEXT 1 

900 IF Ke t THEN 620 

$10 0010 $69 

970 REM * COLOANA A TREIA (COD 42) 2t * 
9I K e ð 

940 FOK 1 * 2 10 34 STGP 9 

9,90 IF $ O 1 VIEN 970 


tOr» a s 
970 WEXT I 

990 IF K» 1 NEN 620 

$70 0010 $90 


1000 REN” 1 = 19 (COD 43» (ut e 
1019 IF $ H dd THEN (1020 

1020 0079 

1030 Poe s Perso *19€)0*. BANI CU MIZA “ec 
1040 Dap- 

10% P aP è ES 

1999 OOTO 1540 

1070 REN * 19 - 34 «coo 442 sat * 
1090 IF 9 < t9 THEN 900: 

1690 IF $ < 37 THER bei 

1100 0070 $00 

1110 REN * MR, PAR (COD 44) Lu) e 
1120 IF $/2 €» [NT(8/2). THEN S00 
1430 IF $ € 37 THEN 10390 

1140 Dro 390 

1190 REM ^ tin. IMPAR (COD 45) tut 7 
11€0 IF 39/2 » tuTcC9S/2). SEI 
1170 IF 9 4 3? THEN 1020 

1199 0010 $30 

3199 REM " ROSU («COD 47) ut e 
1200 RESTORE 

1200 K "0 

1220 FOR Ki * 1 TO 19 

1230 READ R 

1240 IF $ <> R THEN 1260 

13250 K e ti 

1240 NEXT t 

1270 IF K « 1 THEN 1030 

1200 GOTO en 

1290 REM * won (COD 49) tut * 
1300 RESTORE 

1310 K » 0 

1320 FOR I œ 1 TO 16 

1330 READ -R 

1340 IF 3 O R THEN (1360 

1330 W » 1 

1360 NEXT 1 

1370 IF K» | THEN S69 

1380 IF S > 34 THEN 360. 
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13^^ 6010 1030 
1400 REN * O $1 00 (COD 49 91 50) tit 
1410 IF TIC) <4? THEN 1496 

3420 IE TiC) » 49 THEN 3450 

1430 IF TiC) = 50 THEN 1470 

1440 tO San 

1450 IP $ D mn me s, 

1440 

170 IF. E * 3$ TIEN 1510 

1466 GO 550 

Lg n QC) * a THEN 1510 

31300 

1510 Prin H P eren, SIBLE HISI" LANI Cu MIZA "sC 
3220 D « D - MHO 9» 33 
SERA: 

1540 NEXT € 

1550 PRINT * BANCA “Di” DANI * 

1940 FRINT * Aver MAR BANI ~“ 

1570 IF P > 0 THEN 

1580 PRINT * M) MAL pm IT 

1590 0070 1620 

1600 1f D > © THEN 1430 

1630 PRINT " S-A GOLIT BANCA " 

1420 D » 101000 

1490 PRINT © CONTINUAN? (DAM * 

1650 INPUT ve 

1640 IF Y a *DA* TIEN 30 

1660 STOP 

1470 DATA 1,3,9.2,9,12,14,36, 19, 19,21,27, 25,27 
t€75. DATA 30, 32,34,36 

1480 END 


13.23. 'Trasarea bioriimului 


Programul solicită pentru persoana căreia i se trasează bioritmul urm&-- 
toarele date : 

— data nasterii ; 

— data de la cure se dorește începerea trasării. 

Se verifică dacă anul, luna $i ziua de naştere sint corecte, dacă nu, se 
reia Întrebarea. La fel se verifică data trasürii şi dacă data trasării este după 
data nașterii. 

Se calculează numărul de zile trecute de la dala nașterii pînă la data 
trasării. Diferenţa de ani (U-A) între trasare și naștere ; diferenţa de zile 
(X —2Z) intre zilele de trasare şi naştere ; anii bisecți pentru care se adună cite 
9 zi (B); lunile între naștere şi trasare X (Zi) se iau în considerare la calculul 
zilelor. Formula de calcul este 


N =(U—A)*365+ Z(21)--(X—Z)--B 


Se trasează pe o perioadă de 15 zile, începînd cu data solicitată, bioritmul 
persoanei în cauză. Intervalul de 15 zile a fost ales pentru a avea o imagine 
suficient de bună (ncînghesuită) pe ecran. 

După iniţializarea ecranului se trasează axa pe care se marchează cele 
15 zile, Subprogramul 1090 calculează valoarea curbei sinus In funcţie de varia- 
bila I cu care se apelează. Pentru variaţia intelectului periodicilatea este 33 
zile, pentru psihic 23 zile iar pentru fizic 28 zile. Curba intelect se marchează 
cu "4-", cea pentru psihic cu "*" iar cea pentru fizic cu ".". Dacă cele 15 zile 
trec dintr-o lună în luna următoare se apelează subprogramul 1300. Pe ecran 
se trasează 3 sinusoide cu caracterele de mai sus. 

Programul poate fi reluat pentru altă dată de lansare a Lrasării bioritmului. 


Y 
& 


FEFEELIPEDETITITITITII, 


PRINT S IORITANA?’ 
DIN Tita: 

Tu: 
LEI 
MED 
via) 
TO 
Tie) 30 

YO» 921 

1(9) 921 

T(9) 9» 30 

TOJ» 3 

TU 4)e 20 

T(32)a 21 

PRINT * DATA NASTERII! ” 

PRINT = ANUL * 

INPUT A 

PRINT * ZIUA » 

INPUT 2 

PRINT * LUNA * 

VAPUT L 

TR A > 1999 THON 7$ 

I^ A € 1900 THEN 73 

IP T € 1 TNSN 73 

IF 1 > 31 YOH 75 

IP L < 1 THEM 75 

IF L > 12 YREN 73 

PHINT * DATA LANSARII ANALIZGL e 
PRINT * ANUL " 

IWERT U 

PRINT * ZIUA * 

turur Xx 

PRINY * LUNA * 

INPUT Y 

IF 0 € A TUB 140 

IP U > 1999 THEN 140 
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290 garg 310 
295 FOR I » Let TO Y-t 
300 Me NT 


R 3 «2 T0 20 STEP 2 

340 PRINT ATi, diete 

350 NEXT J 

340 OM Y 9070 370,300, 390,400, 410,420 
242 H o 1-6 

363 ON N GOTO 430,440,430, 460 
370 PRINT &41(2,2)10) *. X"; 
373 6010 490 

360 PRINT ATi2,2);U:*," 
365 GOTO 490 

390 PRINT AT(2,2);0;* 
39* 6070 490 

400 PRINT Ta, 221017, X, 7, ti "APRILIE? 
405 0010 4 

410 PRINT 47(2,2),0; *, * X; *, *; *NAI* 

413 6070 4*0 

420 PRINT 41(2,21,0;*.*;X, *, *; *UUN(E* 

423 Core 490 

490 PRINT 4112, 22:U; *, * (X, *, *; " IULIE* 

435 GOTO 490 

440 PRINT AT(2,2);U; * ,*; X; *, *; "AUGUST * 

449 Goro 4*O 

450 PRINT ATI? 2),U; *, X, * ,* ; " SEPTENBRIM" 
495 COTO 4*0 

440 PRIME ATI2,29,U; *, *; X; * , *  *OCVOHÜRIE* 
463 GOLO 490 

470 PRINT AIS, äise e, er, "; "NOERBRIB- 
473 GOTO 490 

400 PRINT AT/2,2);0; *, *;X: *, *; *D6CBMQAIE* 
490 BOR K $ 1 TO 21 Step» 


70,490 
ANUARIZ^ 


PSSRUARIE 
X.*,*S*MARTIE* 


I X < 1 TRAN 340 
IP X > 31 YMNEN 140 
IF Y € à THEN 140 


900 iR X € 10 THEN 320 
$10 PRINT ATUL6,KX01X 


920 GOTO 540 
see Idi TIEN L0 530 PRINT ATC16, Ke1);X 
Pro $40 x a x45 

330 IF X ce 20 THAN 700 
ir ITiC/M) O pc mm 225 SEW CH 
ee dis 380 IP LNT(U/4) + 0/4 THAU 490 
IP INT(A/4). <> A/4 TRON 250 AR 8 
Dir me 250 eio iP X ce 20 mr 700 
EP (ran €) Mea THAN 243 ee 

430 IP Y * 4 THEN 470 
M ass THON 243 940 IP Y e G THBN 490 

430 IP Y * THEN 490 


N © (M-AinäéärtLt-2Zheg 
IF Y > L TRON gea 
FOR $ * Y-1 TO Lei 
ER WOU 

MT) 


440 IP Y o 11 THUN 470 
670 IP X * 31 THON 700 
490 Ne 
490 X a X-N 
100 WT K 


740 FOR & * 2 ro 30 SIEP 2 
220 3 » 33 

730 00508 1000 

740 PRINT ATUIL E), *** 

750 3 + 22 

760 603UB 1000 

770 PRINT ATUN,0);*w* 

790 3 + 20 

790 genug 1000 

000 PRINT ATUM, 8), *.* 

910 N e Bei 

920 X e Kei 

$30 JA T(Y) € © TUEN 850 

940 GOTO 840 

930 60509 1300 

640 NEXT B 

970 PRINT AT(27,2)  " INTELECT e e 
900 PRINT AT(20,2) PSIHIC ~“. 
990 PRINT ATI29,2) "PITIC m. 
900 STOP 

1000 P e INTOI-IMTCU 2083) 

1005 P e (P/J)aPIs2 

1010 bs, EIN) 

1019 15-1XT(Pa10) 

1020 RETURN 

1300 IFR Y <> 2 TREN 1340 

1303 1P INT(U/4) <> 0/6 TRON 1240 
1319 IP X <> 29 THEM 1340 

13:16 x » xet 

1320 Y o Yei 

1325 IF Y <e 12 THEN 1249 

1930 Y ^ 4 

1335 U e U+} 

1240 RBTURM 


ang e 
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13.24. Dicţionar de sinonime 


Programul permite crearea unui dicţionar de sinonime în două sau trei 
limbi. 

La creare (lansare program prin RUN) se stabilește dacă se creează în 
2 sau 3 limbi şi limbile în care se creează. La lansare cu GOTO 16 se utilizează 
dicţionarul creat. În acest caz se poate cănta după oricare limbă (sau după 
oricare rubrică) un cuvint obţinînd celelalte cuvinte (rubrici). 

La lansare cu GOTO 16 mai există posibilitatea de completare a dicţio- 
narului (fişierului) creat cu cuvinte noi. 

Dacă la căutare nu se găseşte cuvintul cerut, se revine la secvenţa de 
căutare sau de completare a dicționarului. 

Programul poate fi utilizat și ca bloc-notes, cele 3 rubrici corespunzătoare 
celor 3 limbi putind conţine orice informaţie (de ex. numele unei persoane, 
adresa și numărul de telefon asociate). 


10 PRINT * DICTIONAR OE SINONIME * 
20 IFW 0 THEN 400 

30 REM * DICTIONAR CREAT * 

40 PRINT * BATI CUVINTE NOL (hei) > 
SO INPUT G 

60 1f G * THEN 400 

JO REM * CAUTARE (N DICTIONAR * 

80 PRINT *-OUPA CARH LINOA CAUTATI? e 
90 INPUT 991109 


100 4 : 0 
110 IF 89 + X4 THEN 180 
120 A L 


130 IF 99 > ra THEN 109 

140 If M + 2 THEN 90 

150 A e 221, 

140 IF OS » 7€ THEM 180 

120 GOTO 60 

180 PRINT * DATI CUVINTUL IN LINDA 5:99 
190 INFUT C$ TQ) 

200 Lei 

210 IF Ce = DSUT,A*TTOASLO THEM 260 
$220 1 * be 

230 IF | ta N TREN 210 

240 PRINT * NU EXISTA CUVINTUL *;C9 
250 09T0 90 

240 PRINT USt 1, TO, * v*, 

270 IF M « 2 THEN 290 

280 FRIMT MSIF, Leite: eer, 

290 PRINT 09tL. 1 ( -LoaLTONaL! 

300 coto bo 

400 REM * CREARE $1 COMPLETARE DICTIONAR * 
410 tf H <> 0 (WEN 320 

420 PRINT * IN 2 SAU 3 LINGI CREAII? * 
430 INPUT n 

440 BLN 05.40, Beiät 

4$0 DIN C$c13) 

440 PRINE * DATI LIMBILE DICTIONARULUI e 
470 INPUT x$ 

ABO INPUT TA 

490 IF M © 2 THEN $10 

$00 (eur 29 

$10 L » 13 

330 IF K > ag THEN 620 

330 PRINT * DATI CUVENTUL (N LINSA *;X$ 
540 INPUT Decu, TUIS) 

$0 PRINT * CATI CUUINTUL IN LINGA rs 
560 INPUT D$tN.1410230) 

570 IF H e 2 THEN 400 

$80 PRINT * BATI CUVINTUL IN LINGA “its 
399 INPUT DSIN, 3LTOAS) 

400 M * Wet 

419 GOTO 320 

420 Stop 

430 EN 
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13.25. Ordonarea unui set de informaţii 


Programul posedă un set de date (în cazul de față datele constau din`: 


numele, greutatea şi înălțimea unui grup de persoane) pe care le poate ordona 
după un criteriu dat. atf 
Ín exemplul de faţă, ordonarea se face pentru ordinea alfabetică, după 


greutate sau după înălţime. După ordonare, se afișează lista de date ordonată. 
em ve Ce wa 
S PRINT * ORDOMARBA BUPA ALPARUT ° 
? PRINT * GREUTATR SAU IMALTINB e 
10 DIM 49120,10),$(20), RC(20) 
19 Neng 
20 Ne Bet 
29 RBAB A*(N,10) 
90 RGADÐ NIH) 
33 RUAD SIN) 
40 IP A(N) <> "STOP® THEN 20 
45 PRINT * DATI CRITERIUL OU ORDORARG e 
SO PRINT * i e ALFADIT * 
I3 PRINT * 2 = OREUTATE * 
op PRINT * Ae INALTIME * 
45 (NET o 
70 ROM * OROONAREA * 
73 ce-o 
60 POR X » i TO N-t 
93 on 0 GOTO 90,100,110 
9?O LIF ASIK) > AVIK») THER 120 
93 Goro 170 
100 IF $t(K) > SOC) THEN 120 
Log 0070 170 
MO IP NCK) > Hei THEN 120 
1t5 GOTO 170 
120 $ > OU H 
129 SIK) € SiR») 
130 SiReit » $ 
139 B6 » ASIK, T09) 
140 ASIK) = ASCUOCHL,TOD 
149 Asti) = OSCTOD 
150 M * KIK) 
335 NIR? e Mike) .. 
360 HIRD eu 
165 € „cei 
170 NEXT K 
175 IP C >? O THEN 25 * 
160 ON 0 00YO 105,199,205 
109 PRINT * NUNG *;* LNALTIHE rr ORGUTATE * 
190 00TO 210 
195 PRINY * RUNE Fr GRBUTATE * 
200 00TO 210 5 
209 PPINT * NUME >; TNALTINB * 
210 FOR | * 1 TON 
215 ON 0 GOTO 220,230,240 
220 PRINT ^$11);* Riis *;901» 
223 GOTO 245 " 
430 PRINT ASI; Sta 
235 GOTO 249 
240 PRINT Act): Së) 
245 NEXT ! 
2750 stor 
240 DATA *POPESCU',200,00 
263 DATA *COMSTANTIN*,125,4$.^ 
270 DATA *BARHNA*,190,70 
273 DATA *MARESCU*, 103,71 
280 BATA *MICUTU*, 205,91 
285 PATA *$3TOP*,0,0 
300 ER 


13.26. Decodificarea numerelor romane 


Programul servește la transformarea numerelor romane în numere zeci- 
male. Se introduce numărul roman sub forma unui șir de litere. Decodificarea 
se face In baza regulilor definite prin DATA în liniile 440—550 din program. 
Regulile specifică succesiunea corectă de cifre romane ; o succesiune eronată 
este semnalată printr-un mesaj. Numărul decodificat este apoi afișat pe ecran. 
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După intreducerca numărului roman În şirul T$ şi a lungimii numărului 
(din cite litere se compune) în L, se citește prima literă si se verifică ducă e 
diu setul de litere permise într-un număr roman (M, D, C, L. X, V, Ij. Prima 
literă poate fi oricare dintre aceste litere. Aceasta e spreificulă în prima linie 
de DATA unde de exemplu 100002 inseamnă că dacă litera e M soloarea eshe 
de 1000 iar după M pot să apară litere după regula (02) care se găseste în linia 
următoare de DATA. Valoarea-1 în DATA inseamnă că numărul poe pi ctiv jet: 
poate apare, deci se semnalează succesiunea eronată. 


Lé RER DECOD:P ICAREA MUNERELUN ROMANE * 
zo DIM ULT a (EDU 

Kéi MAT LEAD ai, 7 

«> Däin 2 "n 

Ka Coi2) e "är 

eo cea: à 

70 css: 
EI cup . 
Zo Copa 3 dr 
100 Cet? 9 tl 
110 DIH 1920; 


120 Lat 
130 n.o 
140 C€*9 
159 Poo 


14u PPEIHT * DATI WIUHARUL. RONAN 
170 INPUY Taro? 

399 Leo 

190 For | + YO 7O 

x90 ITA HOT THEN 220 
200 t s tel 


220 MEX! | 
230 rond e 1914 
da EK 0 


230 FOR J * 1 YO D 
266 It FSCITOLI €» C917» FHEN 2809 


2^0 e Kk 19 0 THEN 220 

300 ERINI * MURAT ROMAN ERONAT 

310 €010 120 

326 X 5 Li Id) 

330 Af x * 0 TREN 300 

340 C a ti-A051S6M4K-F ))DNICOM! 

230 Ip C > 2 THEN 200 

3e0 Po: 

370 MME 

360 LR ALL HEIM A 

3*0 IF R 4» O THEM MIQ 

400 DA? 

410 LAN 

420 PPINT H 

430 GLTO 120 

«440 REM * DECODIFICARFA CONDITIILOR f! 

430 REH * M . 9 c t H v I 

44% DATA 100002,500023, IOCOR, 500%, 10297,9302, 110 
470 DATA 100002,30003,100€8,:3003,1009,302, 110 
490 DATA zl s CP 100R, JOOS, 1009, $97.110 


490 DATA =$ =l ,10004,500*5,1009,207, 110 
Soo DATA >l NI "1 ,99905.1007,507,110 
$10 DATA MI Á. MI “1 ,1005,302, 110 
320 DATA bi MI “a w. t och 002 
$30 DATA 8003, 30003, Loop, 3004, 1009, 307, 110 
$40 DATA -t be. 8007,30027,1C05,50^,110 
$30 DATA -i , -) wl, "A 890,300.10? 
540 *N0 


13.27. Mira de control AMIC 


Programul generează o imagine de control asemănătoare mirei TV, cuprin- 
tind trasări de drepte orizontale si verticale, a unui cere circiunseris unui pătrat, 
şi a setului de caractere, inclusiv cele semigrafice. Mira obținută puate fi utili- 
zată la reglajul calității imaginii TV. 
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10 RUM * MARIN CE CONTROL * 
INIT P 


30 PRINT AT(2,12; UNHM 1HAOTME DE CONTROL auns’ 
40 UtNDON 0,150,0, 100 

30 nova 152,73 

40 FOR 1 = O TO 2P) STEP P1710 

70 BRAU 735*67«C0511),75*67«81N 10) 

BO NEXT I 

$0 KOVR O,142 

100 BRAU 160,142 

110 KOVE 0,132 

120 GRAU 140,132 

130 PRINT 
140 PRINT 
1950 PRINT 
140 PRENT 
170 PRINT 
169 PRINT 
190 PRINT Ó 
200 PRINT 416(39,235; 
210 NOVE 0,11? 
220 RAU 140,117 
230 Hove 0,235 

240 DRAU 160,35 
250 HOVE 0,20 

260 nRAU 160,20 
270 HOVE 0,9 

280 DRAU 160.7 
290 PRINT AT(7,7); 
300 FRINY ATUS,71; 
310 FRINT ATI2,7 
320 PRINT ATt2e,?7) 
300 PRINT 47627, 79 
340 PRINT AT(20,?); 
330 NOVCE 0,109 

360 ORAU 160,109 
370 Move 0,%0 

380 DRAV 160,90 
3*0 HOVE 0,75 . 
4CO0 ORAU 25,75 

410 Houf 120,75 

A20 BRAU 140,/5 

410 NOVE 17,0 

440 Bau 17,140 

am HOME 23,0 

460 DRAU 25,140 

420 KOVE 128,0 

430 DRAU 129,140 

490 MOVE 137.9 

300 BRAU 132,140 

$10 PRINT ATI 
$26 PRINT ATILO, 9) 2 
SJO PRINT AIIIB,Ş» CDCFGNI JKLMNOP * 
$406 PRINT at120,S), "R$ TUVUZ2 Cuir" 
750 NIVE 41,0 

Zen BRAL 41.50 

370 NOVE 41,100 

TAO DRAY 41,140 

$9?0 HOVE 10?.0 

€90 URau 107,2 

GO NOVE 107,100 

€20 DRAU 107,140 

530 REM *iTOP* 

€40 C0T0430 

430 END. 


13.28. Ceas electronic 


Programul solicilà prin dialog ora exaclá, după care afigeazá imaginea 
unui ceas cu urătătourele in mișcare. În dreapta-jos a ecranului se afişează 
și ora sub forma TIHMM. Reglajul avansului se face în linia 250 din program. 
Constanta T are valoarea de aprox. 11 869, o valoare mai mare ducind la "intir- 
zierea“ ceasului. 
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E e AP 


10 PRINT" CEAZ UL 
20 PRINT ù DATI ORA DE PORNIRE * 
T 


40 PRINT ^ MINUTUL * 
TK 


70 PRINT AT(6,12); *a* 
90 PRINT ATt16,210)) *u* 
*O0 PRINT AT(26,13); enne 
100 PRINT AT Lé, $); *n* 


120 0 > tMaPi/30) 

190 ORAU 32*3082$1N(6),52020nC0540) 
140 MOVE 32,32 

199 6 » tHrh/60'aPt/4 

160 PRAU $2«309$1N(G),$20304C0$(0) 
170 PRINT 4T(30,24);Hi * 1; 

180 N + Mea 

190 IF H * 60 THEN 210 

200 GbTO 230 


220 H a Hei 
230 IP H <> 24 THEN 230 
H ag 


290 T a 11000 
26C FOR i * 1 TO 1 
27C NEXT I 


13.29. Anagrame 


Programul solieită introducerea unui sir de max. 20 de caractere, alişînd 
apoi combinaţii aleatoare ale șirului. 

Cuvintul se introduce în variabila şir A$, iar lungimea șirului în N. 
În masivul A (N) se aleg aleator cifre între 1 şi N care determină litera a A (I)-a 
din cuvînt. După completarea lui A (N) se afişează literele cuvîntului fn ordinen 
din A (N). După afișare se reia ciclul. Programul! se continuă pini la oprire cu 
CTRL/C, după care se poate relansa cu alt cuvint (șir). 


$ MEN ANaCRANA»” 

10 DIM A$(20? 

20 PRINT * DATI UM CUVINT e 

30 INPUT TICE 

40 H^0 

30 POR 1 * 1 TO 20 

$0 Ip A9(1701) e: e TRGN 90 

70 N awet 

90 NEXT t 

70 DIN Au) 

100 POR 1 » 1 TO 7 

130 ji * ÎNTEÂNDIX IN25 1 
1.9 


130 POR J * 1 Ta 1-1 
140 IP AC)» ca az: THEN 100 
U si 


360 REKT A 
190 1f U <> 0 THEN 130 
BEXT 2 
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13.30. Bugetul cheltuielilor zilnice intr-o familie 


Programul solicită introducerea cheltuielilor electuate pe zile; noile 
cheltuieli se introduc după ultima zi completată intr-o rulare anterioară. La 
cerere, se afișează lotalul cheltuielilor si histograma cheltuielilor pe zile. 

Dacă se introduc cheltuielile pentru primele zile se lansează programul 
cu RUN. Pentru compietare de cheltuieli se lansează cu GOTO 20. Histograma 
cheltuielilor se dă la cerere. 


t0 BtM ALILO) 
UA 


20 PRINT ° CITE 2106 INTRODUCETI? * 
29 INPUT N 

$6 FOR J » | TON 

40 INPUT at) 

$0 | * It 

60 WEST A 

70 PRINT * VRETI HISTOGRAMA DA/MU * 
So INPUT BS 

90 If Dn <> *Dà* YHBH310 

100 C * ati) 

Mo T 9 A112 

i20 TOR 2 * 2 TO I 

130 B EA IM 

140 IF B Se 0 THEN 140 

150 € c 6101? 

160 f = Tear di 

170 WEXT t 

180 INt? 

190 PRINT ail. IS. * SE (CMRETUIBGLLDR * 
109 FEINT ATI(Q,UID,* PR "it; 

200 PRINT AT(t3,09,^ TOTAL mei titei WA 
210 UtMOnU -10,110.-(0, 110 

220 NOVE O,-130 

$30 BRAU 0,100 

240 HOVE -10,0 

$250 PRAU 100,0 

250 FAR 1 v TOTI 

270 At)» * tCOnAr JC 

280 MOVE J*3,0 . 

«90 BRAU )e3.41J) 

?00 NeXT ) 

210 STOP 

920 ENN 


13.31. Microfişier 


Programul permite crearea si exploatarea unei microbaze de date generată 
sub forma unui tabel de articole. Fiecare articol poate contine mai multe cim- 
puri de lungimi diferite. 

La creare se defineşte baza de date, prin următorii parametri : 

— nume; 

— număr maxim de articole (max. 254); 

— număr cimpuri/articol ; 

— denumirile și lungimile fiecărui cimp. 

În funcţie de parametrii daţi, se dimensioneaza tabelul ce va contine baza 
de dale. Se verifică dublele definiții pentru numele asociate cimpurilor. 

Exploatarea bazei de date se execută cu ajutorul următoarelor comenzi : 

a) introducere articol — se caută o linie (articol) vidă din tabel si se in- 
roduc valurile asociate fiecărui cîmp din articol. Introducerea unui articol 
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se execulă prin afișarea numelui fiecărui cimp şi introducerea conţinutului 
cimpului de către operator. 

Dacă numai există loc pentru un nou articol (Label plin) se emite mesajul 
FIŞIER PLIN, după care se poate utiliza comanda de ştergere articol si intro- 
ducerea celui solicitat. 

b) ştergere articole după conţinut — se şterg arlicolele care conjin infor- 
malii identice într-un cimp dat. Se solicită denumirea cimpului si conţinutul 
său. Se caută fiecare articol care conţine În cimpul respectiv informația dată 
şi se şterge articolul respectiv. 


c) listare articole — se listează articolele din cadrul fişierului. 
1) modificare cimpuri după conținut — se solicită numele cimpului, 
vechiul conţinut și noul conţinut. Se listează fiecare articol ce conține cimpul 


cu informaţia identică cu „conţinut vechi” $i se întreabă operatorul dacă 
dorește sau nu modificarea articolului. 


5 fer MNICROPI Sie: 
10 IF P €» O THEN 215 


13 REN * SE CREBAZA FISIER NOU * 293 3( 09 - 2 

20 FOIN? * OATI NUME FISIER * 300 L * tot 

29 mru? P$ JOS PRINT * MAI INTRODUCETI (Bat! 

J3 rel J10 INPUT € 

99 TRIN? * DATI KUNAR HAXCM ARTICOLG * 315 1F Ç » | THGN 243 

40 NET T 220 0910 163 

43 PRINT * DAPÈ NUMAR CIMPURI/ARTICOL * 3258 PRINT * 20 LUCRHUA2A CU FISIERUL *, P9 
30 Iupur N 230 REM * STEROERE ARTICOLE DUPA CONTINU?" 
3% PIN Cep, 109, L(U.$(72,.$9$(3, 107, X9 (10) 2339 PRINT * DATI HUNE $I CONTINUE CINP * 
sp hat $ * ZER 340 PRINT * DUPA CARE SE STERG ARTICOLULE* 
25 V*1UT * DATI BENUHIRE $1 LUNGIME CINP * 345 INPUT $961,109 

LGE) 930 INPUT $912,10? 

7$ 106 le 1 TO K 333 00sUB 1009 

60 IMFYT Cet, 10? 960 If | € O THEN 163 

eS INPUT Lit) 365 Be 1 

20 » - pei» 220 605UB 1109 

9*5 wv? N 375 Vf D > Y IHEN (63 

v-a 390 st) » 0 

105 IARE P * | T9 HI 395 L » t-l 

115 xe v Coto 390 6010 370 

120 INR C = 1*1 TON 395 PRINT ^ SE LUCREAZA CU FISIGRUL "fe 
129 10 x9 €» CSIC) THEN 125 400 REM “ LISTARE PISIER * 

96 n MI 409 FOR iv l FON 

Ir NT G 510 PRINT C$102;*,*- 

Véi MO 4 413 NEXT J 

149 tF D 9 t THER Leg 420 PRINT 

nC PEINT ^ CIMPURI CU ACELASI RUNE * 425 FOR | » 1101 

(5$ ster 420 IF Sit) > O THEM 440 

140 1 o 435 COSUN 1200 

147 PRINT ^ INTRODUCETI CONAPOA ~ 440 NEXT | 

170 PRINT ° t a INTRODUCERE ARTICOL ° 445 GOTO 149 

175 PARINI * 2 e STORGERE ART. CUPA CONTINET * 430 PRINT * SE LUCREAZA CO FISIERUL ups 
100 PRINT * 3 3 LISTARE ARTICOLE ” 435 REM * HODIF.CIMPURI BUPA CONTINUT* 
185 PRINT * 4 e HODIF.CINPURI DUPA CONTINUT * 460 PRINT * DATI NUME CINP St CONTINU? 
190 PRINT * 9 a LISTARE PT. MODIFICARI * 443 PRINT * VECHI $: NOU * 

193 FRINT * 6 e TERMINARE SESIUNE 7 470 INPUT $911,105 

200 INPUT C  . 475 INPUT 2912,10) 

209 OH C GOTO 213,323,393, 430.540, 193 480 INPUT $412,130) 

210 6010 143 493 00$U8 1000 

21$ PRINT ^ SE LUCREAZA CU FISIERUL "P$ 490 IF | < 1 THEM 165 

220 AEN " JMIRODUCERE ARTICOLE * 493 D « | 

225 IF t « Y TREN 240 $00 GOSUB 1100 

230 PRINT * PISIER PLIN * $10 IF B > T THEM 183 

235 COTO 145 312 e0$u8 1200 

240 B « | $19 PRINT * SE HOBIFICA (Bësi: 

245 If D > T THEN 230 320 INPUT C 

250 IF 3:02 * O THEN 269 923 IF C = 1 THEN 335 

255 B > Bei SIO F9. AS 1TOA*L41020 e $A(95 

240 0010245 333 GoTo 300 

265 4 * O $40 PRINT ° SE LUCREAZA CU FISIERUL *;f* 
270 FOR | è | TO KM SAS RUM * LIA PISIER PT.NODIFIURRE 
273 PRINT Coin m $3500 * 1! 

200 INPUT F9(D,A*e1TOA*L (I2) $55 08$UB 1200 

20$ A > Metti? $60 IF B ^ T THER wa 


270 gt 565 G603UB 1300 
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$70 0 » Bei 

373 0070 163 

1000 REM ° CAUTARE NUNE CINP * 
LA 


10004 ^ 0 

1015 IF 1 > M TREN 1040 

1020 IP Ceti? e frt THEN 1030 

1023 Ae A*Lt1) 

1030 | * lei 

1033 80TO 1015 

1040 PRINT * NU EXISTA CIMP "zit? 

1043 î » -1 

1030 RETURN 

1100 REM ^ CAUTARE CONTINUT * 

$108 IF D > T THEN 1120 

1310 IP St) <> 2 THEM 1120 

1315 IF FSID,A SITOA LII)) e $$C2). THON 1120 

4120 D = Bei 

3125 00T0 1103 

1130 RETURN 

3200 REM * TIPARIRE ARTICOL * 
8*0 


1210 FOR J= 1 TON ` 
1215 PRINT f9tD,8*1T08*L€J2)2, *,". 
1220 8 e BLL)? 
1230 NEXT J 
1239 PRINT 
1240 RETURN 
1300 RAN * HOBIPICAREA ° 
1208 PRINT © AL CITSLEA CIRP $8 MODIF 
1306 PRINT * O ^ NU SE MODIFICA * 
1310 INPUT C 
1319 19 C + 0 THEN 1940 
1320 PRINT * BATI CONTINUT NOU * 
1329 INPUT 593,10) 
LAT 
1332 IF Cat THEN 1305 
1335 POR J » 1 TO €C-1 
1340 8 CR HE 
1343 NOXT J 
1335 90T0 1203 D 
1360 RETURN 
1369 GND 


e) Listare articole și modificare — se listează pe rînd fiecare articol. 
Se întreabă dacă se doreşte modificarea unuia sau mai multor cimpuri din articol. 


= Procedura! continuă, pin la, sfirşitul fişierului. 


13.32. Universul Conway ' 


Se poate studia prin aceasta creşterea, modificarea, Înmulțirea si moartea "m 
celulelor dintr-o colonie. Viaţa celulci este influențată de celulele înconjurătoare. 


| La început pe o zonă de N*M locaţii se gencrează celule vii conform 
coordonatelor date de utilizator. O locaţie poate avea două situații : confine 
sau nu o celulă vie. Din starea inițială în baza legilor geneticii se ajunge la 
generaţii următoare. Starea locafiilor în următoarea generaţie poate fi: 

1 — celula vie supravieţuieşte ; 

2 — celula vie moare; 

3 — s-a generat o nouă celulă vie. 

Cele trei stări se determină” după următoarele reguli: an 

1. Supravieţuieşte tiecare celulă dacă are două sau trei celule vii vecine, 


Universul lui Conway 


Fig. 13.9. Organizarea ecranului 
pentru universul lui Conway. 


9 PRINT * INIVERSIE CONWAY * 


7 PRINT " ------- moumnno.. T 2005 FOR Lo LION 

10 FRINT * DATI CIMUL " 2010 IF Ut f, J) > 3 THEN 2025 
1$ NAUT t. n 201% IF Ui 1, J) > $ THEN 2035 
SU ÎN N> à THEN 10 2020 GOTO 204% 

$$ IF M > 30 THEN 10 202^ Q = 0 

20 DIM utn, m 2030 GOTO 2040 

40 HAT U = /tf 26039 Get 

Sé PRINT * CITE. CERLE VIT INTRODUCETI? 4 2040 W) 9 

60 INFUT C 2045 NEXT | 

76 IF C «« N«H/2 THEN 100 9990 NEXT A 

20 6070 50 2055 0010 200 

100 FRINT ” DATI COORDONATELE CELULELOR vii * 20€0 END 


IOF tal toc 
126 iNFUT x, Y 

130 IF X > N THEN 120 su 

130 1f Y - M THEN 120 

156 If X c 1 THEN 120 

160 IF Y € 1 THEN 120 

170 ix, a) 

100 NEXT 1 

18$ INL IP 

1906 PRINT ATLI,2);"* STAREA INITIALA * 
19$ Gig 220 

200 INITE 

210 PRINT AT(1,291* OENERATIA URMATOARE * 
720 FÜk | = 1 TON 

230 PRINT ATLIS2, 104 

240 FOR J e 1 TO H 

250 IF ULI,J) = O THEN 290 


$10 FOR J » 1 TON 
320 C 490 


= 
- 
: 
= 
ge 


1 
M THEM $40 


-1 
& Ae 1 THEN 390 


et TOK 
-1 
. 


N THEN 630 


"ua. "REP 
Zeie 
* t 


1 
1 THEN 660 


»P T00 
T UD fe = Ut voao/2 THEN 699 
* 


LI-RE-I—E-2- Dd — Lari 
D 


=2 
Se 
BER: 
*« 


"AXI 
EK 


tJ, 0/2) m UCJ. D) /g THEN 740 


KI 
Li 
MER TA 


o 
INT( 

Li 

c 


KEE x 
855833 
AEO808aa00 
= ode , 
MOT 


Lal sl 
$30 IF | ca M THEN 510 
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2. Moare — dacă are patru sau mai multe celule vii vecine, molivul este 
suprapopulafia, . 
— dacáfare una sau nici-o celulă vie vecină, {motivul fiind izolarea. 


3. Nastere — fn fiecare locaţie goală se naşte o celulă vie dacă are trei 
(nici mai multe nici mai puţine) celule vii vecine. 


13.33. Pătratul magic 


Intr-un pătrat de mărime dată se așază numere In așa fel incit pe orizon- 
tală pe verticală şi în diagonală suma numerelor să fie aceeaşi. Există diferite 
metode de a genera pătratele magic. de diferite mărimi. 

Primul exemplu generează pătrate magice de grad impar utilizind o gene- 
rare bazindu-se de următorul algoritm : 


Fig. 13.10. Pătratul magic : (a) exemplu, (b) generale. 


Pe pătratul de gradul dat se desenează piramide de pătrăţele și în diago- 
nalele astfel formate se trec cifrele In ordine crescătoare după care cifrele în 
afara pătratului se mută cu atitea poziții cit este gradul pătratului. 

Al doilea exemplu generează mai multe pătrate de gradul impar utilizInd 
următorul algoritm : 

Din şirul de numere 1,2, 3,4,5 ...pină la gradul pătratului si 9 n, 
2*n,3*n ... (unde n e gradul) ptná la (n—1)*n aleator se generează două 
pătrate de gradul dat sub forma: 

— se alege din primul sir un şir aleator şi se pune în primul rind al pătra- 
tului ; 
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— restul liniilor se completează pornind cu numărul din pătratul de după 
mijlocul linieifsifcontinuind cu primele; 

— din şirul al doilea de asemenea se alege o combinaţie aleatoare; 

— restul liniilor se completează din acest sir dar acm pornind din mii- 
locul liniei. 

Adunind cele două pătrate se obține un pătrat magic: 
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Fig. 13.11. Primul pătrat. Fig. 1342, Al doilea Fig. 13.13. Pătratul re- 


pătrat. zultat. 
10 PRINT * PATRAT MGIC " * 
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Capitolul 14. | Testarea resurselor hardware 
şi a interpretorului BASIC 


Procedura de punere la punct a microcalculatorului urmează următoarea 
inlántuire de faze distincte :,. 

— pe placheta implantatá cu componente electronice nealimentatü se 
verifică — ohmetric — magistrala de adrese, date, comenzi; scurteircuite 
între alimentări (respectiv masă), cum şi restul pinilor de circuite ; 

— pe placheta alimentată, dar fără circuitele ISI se verifică prezenţa 
tensiunilor, nivelul lor, eum și modulele funcţionale, in următoarea ordine : 
prezența şi corectitudinea semnalelor delivrate de sincrogenerator, corectitu- 
dinca tastării RESET şi INI; 

— pe placheta alimentată cu circuitele LSI prezentate şi cu un EPROM 
de test programat cu NOP (de lu adresa 9) se verifică magistrala de 
adrese și date; 

— se verifică corectitudinea semnalelor microprocesorului de comandă 
a memoriei, de selecție etc. în conformitate cu diagrama de timp, înlocuind 
EPROM-ul de test cu un altul care asigură un program de scriere/citire in 
memoria RAM şi selecția circuitelor EPROM de pe plachetă ; 

— cu EPROM-ul monitor implantat se verifică corectitudinea tastării, 
se reglează interfața cu receptorul TV si casetofonul audio ` 

— se trec testele hardware, se verifică comenzile de monitor si setul de 
instrucțiuni BASIC. 


14.1. Prezentare generală a setului de programe de test 


Setul de programe realizat urmărește testarea logic-func[ionalá a modulelor 
harda microcaleulatorului aMIC. 

Programul TEST aMIC are următoarele module, corespunzătoare modu- 
klor funcţionale pe care le testează : 

R-RAM Testarea zonei de memorie RAM 

E-EPROM Testarea zonei de memorie EPROM 

D-DISPLAY Testarea afişării pe ecran 

K-TASTATURA Testarea preluării de caractere de la tastatură. 

Aceste programe pol fi executate în regim automat, ciclInd, fără inter- 
ventia operatorului, sau în regim manual În care operatorul poate selecta 
testul dorit. 
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În afară de aceste teste există proceduri de testare a interpretorului BASIC 
şi a transferului de informații dinspre/spre casetofon. 

Programul TEST aMIC este disponibil pe casela magnetică, într-o va- - 
riantă simplificată, sau este înscris pe EPROM. Completat cu citeva subrutine 
modificate din monitor, formează conținutul? unei capsule 2716 de 2 Ko. Acest 
cip este amplasat în locul primului cip din EPROM-ul suport al programului 
BASIC. Programul utilizează generatorul de caractere, tabela de simboluri 
pentru tastatură gi citeva subrutine din monitor. 

Lansarea programului TEST AMIC se face prin interinediul monitorului, 
tu comanda 


GØ 809 (CR) 


Această comandă cedează controlul monitorului de comenzi al progra- 
mului de test. După ce se face iniţializarea slivei $i a variabilelor program 
(în zona de memorie RAM SEO 5FEFH, corespunzătoare ultimei linii de 
caractere) se afişează mesajul : 


TEST AMIC 
MOD DE LUCRU: A SAU M. 


Apásarea unei alte taste decit A sau M va produce menţinerea mesajului 


de mai sus. 
Următorul mesaj : 


IN 2 CIP1 SAU 2? 


ere numărul cipului de memorie EPROM plasat în poziţia 2. Această mențiune 
este necesară pentru textul EPROM, deoarece cipul care conţine TEST AMIC 
este plasat În poziția 1. În funcţie de răspunsul la acest mesaj se va lua în con- 
siderare CHECKSUM-ul cipului 1 sau 2 la testarea poziției 2. din cele 8 
EPROM-uri. 


În funcţie de modul de lucru, tratarea se ramifică ju continuare. 
REGIMUL AUTOMAT : Se cere: 
ORDINEA TESTELOR 


care vor fi executate în regimul AUTOMAT. 

În acest regim pot fi executate testele RAM, EPROM și DISPLAY. 

Ca răspuns la acest mesaj se introduce combinația dorită a testelor, per- 
nafindu-se și repetarea unor teste cu condiţia ca numărul total să nu depășeuscă 
10. Dacă succesiunea de caractere R, E și respectiv D se termină cu C, atunci 
programul va cicla pe succesiunea de teste anterior intrudusă. Comanda S iuler- 
calată în succesiunea de comenzi va avea ca efect terminarea testelor şi reveni- 
rea in monilurul microculculatorului. 

După introducerea celei de-a zecea comenzi, apare mesajul : 


ZONE RAM TEST: 


Acestea pot fi în funcţie de varianta microcalculatorului, următoarele s 
60— 09 ; 60-CO ; 60—80 ; 40—80, A0—09 (memoria RAM alocată DISPLAY- 
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ului poate fi în zona 49— 60 sau 80— A9). În continuare vor fi executate testele 
loscrise în listă, în aceiași ordine. Dacă in lista testelor nu figurează comanda 
C atunci, după execuţie, se trece controlul monitorului de bază. 


Regimul manual : 


Pe ecran apare mesajul: 

SIMBOL. TEST; aşteplindu-se una dintre comenzile R, E, D sau K, 
care să lanseze programul test corespunzător. Comanda S trece controlul moni- 
torului de bază iar orice tastă apărală reafigenzá mesajul de mai sus. De asemenea, 
după execuţia unui test se revine cu acelaşi mesaj (la dispoziția operatorului). 


14.2. Comanda E — testarea zonei de memorie EPROM 


“Testul se execută în mod identic In ambele regimuri de lucru. Acest test 
constă în calcularea sumei de control pentru fiecare cip de memorie EPROM-2716 
şi compararea ei cu suma corespunzătoare anterior calculată si înscrisă Intr-o 
listă de „semnături“ în programul TEST aMIC. 

Programul care urmeuză calculează sumele de control ale celor opt cipuri 
2716 existente si afişează valorile respective. Aceat program se utilizează la 
fiecare modificare a informaţiei în memoria EPROM, valorile obţinute pentru 
sumele de control trebuind să fie introduse in tabelul de „semnături“ din 
EPROM-ul de test. 


CSMART: MVI Eë ; Se încarcă îu E ur. cipului 
eSti MOV B,E ; de început 
CALL CSC ; Calcul suma de control a cipului respectiv 
MOV D,A ; Se încarcă în D suma de control 
CALL CRLF ; Se afișează nr. cipului 
MOV A,B 
CALL BINASC 
CALL AF20H i Se afişează suma de control 
MOV A,D 
CALL BINASC 
INR E ; Increment nr. cipului 
CALL KEYIN ; Aşteaptă comanda |, continua" 
CP1 43 
JZ CSi 


JMP MONIT. 


Subrutina CSC calculează suma de control a cipului adresat 
Intrare: B =fnr. cipului adresat 
Ieşire: A = sumadde control 


esc: PUSH B 
MOV A,B ; calculul adresei de început 
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MOV H, A ; (H, L) contine adresa de începul a clipului 
MVI Log 
ADI 08 : 
MOV BA ; B conţine adresa H de sfirgit a cipului 
XRA A 
CSCI 1 ADD M ; calculul sumei de control 
MOV CA 
INX H 
MOV AH 
CMP B 
MOV AC 
JNZ CSC1 
POP B 
RET 


Deoarece cipul care contine programele de test reamplasează în poziţia 1 
(primul cip,de BASIC), cipurile 1 şi 2 se testează pe rind, amplasindu-se în po- 
sin 2. Eventualele erori care apar se afişează sub forma : număr cip, sumă 
de control din tabel (martor), sumă de control calculată şi o tratare a cauzei 
aparițici erorii respective. 

Pentru testarea logicii de citire a memoriei EPROM se face, citirea si 
calculul repetat al sumei de control pentru cipul care conţine monitorul. O 
primă măsură care se poate lua în cazul apariției de erori este mișcarea cipuri- 
lor; în soclu, după care se va executa din nou testul EPROM în regim manual. 


14.3. Comanda K — testarea preluării de caractere de la tastatură 


Deoarece în cadrul acestui test este necesară intervenţia operatorului, 
testul se execută doar în regim manual. După afișarea mesajului de 
start test se aşteaptă acţionarea unei Laste. Caracterul activat va fi pe o linie 
sau pe tot ecranul, funcție de comanda precedentă. 

CTRL-L — rămîne memorată și este activată prin start test. Caracterul 
corespunzător tastei apásate va fi afişat pe o linie, apăsarea tastei DEL are ca 
efect ștergerea ultimului rînd, iar tasta BS repetă ultimul caracter tastat. 

CTRL-C — rámine memorată pînă la acţionarea CTRL-L şi implică 
afişarea caracterului selecta pe întregul ecran. Tasta DEL şterge ecranul, 
iar tastele BS și BLANK au acelaşi efect ca în regimul CTRL-L. 

În ambele regimuri, acţionarea tastei CR transferă controlul monitorului 
TEST aMIC. Testul se bazează pe observaţiile operatorului. Se poate utiliza 
testul, prin menţinerea pe ecran a caracterului H sau a caracterelor semigrafice 
pentru reglarea calităţii imaginii ecranului monitorului (dimensiunile rastrului, 
liniarizate, focalizare, afișare video-invers stabilă). 


14.4. Comanda D — testarea afișării pe ecran 


Acest test verificà funcţionarea circuitelor de ceas si formatoare a semna- 
lului video-complex, cit şi a memoriei RAM din zona 4000-5FFFEI rezervată 
afişării. 
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În primele 2 faze se afişează pe întregul ecran „table de şah“ avind dimen- 
siunea pătratului elementar de una, respectiv patru, linii TV. Prima rejea se 
realizează prin Înscrierea în RAM a octefilor AAH şi, respectiv, 55H iar a doua 
prin afişarea caracterelor semigrafice avind codurile G8H şi, respeetiv, GEH. 

După durate egale de timp imaginile sint negativate, ceea ce se realizează 
prin complementarea informaţiei din RAM. Eventualele erori de înscriere 
in RAM la complementarea informației sint sesizate uşor pe DISPLAY de 
către operator. O caracteristică a „tablei de sah" este egalitatea între nivelul 
de alb si de negru din imagine. Pentru testarea modulatorului s-au realizat 
succesiuni de imagini care conţin cantităţi diferite de alb și de negru. 

Astfel, in a treia fază se afişează pátrüfelele negre pe fond alb, utilizind 
caracterele semigrafice (dimensiuneu pătratului fiind de 8 linii TV), iar in 
a patra lazà ecranul este şters (nivelul maxim de negru). Complementind suc- 
cesiv aceste imagini, nivelul de alb comulă între 25% şi 75% in primul caz 
şi intre 095 şi 109% în al doilea caz. Peniru a obține stabilitatea imaginilor 
se fac reglaje asupra modnlatorului, prin modificarea punctelor de funcţio- 
nare à etajului modulator şi modificarea raportului între semnalele de sincroni- 
zare. şi cel de imagine care concură la realizarea semnalului video-complex 
(SVC). 

Pentru a testa adresarea intercalatá a memoriei RAM-DISPLAY se afi- 
şeuză benzi verticale de contrast, de grosime echivalentă cu 8 linii TV. Benzile 
se ulișează de la stînga la dreapta şi succesiv imaginea este complementată. 

Pentru taslarea îndelungată a funcţionării microcalculatorului, cu afi- 
şarea pe ecran, s-au realizat programe în limbaj mașină sau BASIC de trasare 
a unor figuri geometrice (pătrate și romburi înscrise, cercuri concentrice sau 
spirale). În continuare vor [i prezentate citeva subprograme folosite pentru 
trasarea de figuri geometrice. 

Consideríndu-se ecranul TV ca un pătrat cu latura de 256 linii TV şi 
nol ind axa orizontală cu Ox iar cea verticală cu Oy, subprogramele testeuză, 
setează sau șlerg orice punct TV de coordonate A (X, Y). 


Fig. 14.1. Ecran TV. 


Subrutina ADR precizează poziția bitului In memoria RAM-DISPLAY, 
corespunzător punctului A (X, Y). 
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pios PEE i eg alt e ete cea nd de uzi aceea cata ei 


Ca intrări se dau fn registrele B şi C respectiv coordonatele X şi Y iar ca 
ieşiri se primește în registrul HL — adresa octetului şi în acumulator poziția, 
bitului căutat, codificată binar. Cunoscind poziţia bitului în memoria RAM.. 
se pot opera asupra lui diferite acţiuni: 

testare (TESTP), ștergere (RESETP) și punere pe ,1" (SETP) 


ADRI PUSH DE ; Salvarea registrelor BC și DR 
PUSII BC 
LD HL,3FEGIH ; Adresa început zonă RAM-DISPLAY 
LD DE,f020H minus 20H 
INC C ; DE== numărul de octeți corespunzător unel linii TV 
Ali ADD HL, DE 
DEC C 
IP NZ, A1 ; HL ss adresa primului octet din rindul TV căutat 
DEC HL, 
^21 INC HI. 


JP NC A2 ; HL confine adresa octelului căutat 
ADD A, œH; ; A= conține nr. de ordine a bitului căutat în octet 


SCF ; CY" 
XOR A ; A=09; 
A31 RLA 


JR NZ,A3 ; A conţine un singur "1" în poxilia corespunzătoare 
POP BC bitului căutat 


SETP ( CALL ADR ; Punerea pe "1" a bitului adresat de registrele B si C. 
OR (HL) 
LD (HL),A 
RET 

RESETP: CALL ADR ; Ștergerea bitulul ndresal de registrele B yi C 
CPL 
AND (HL) 
LD (HL),A 
RET 

TESP i CALL ADR ; Teslează bitul adresat 
AND (HL) ; Dacă este zero, flagul Z se poziţionează pe 1. 
RET 


14.5. Comanda R — Testarea zonei de memorie RAM 


14.5.1. Deserierea modurilor de lucru ale programului, După lansare calcu- 
latorul afişează mesajul : 

TEST RAM 

SWITCH : cerindu-se 2 octeți pentru precizarea modului de lucru. În 
regim automat cei doi octeți care reprezintă SWITH SOFT vor fi inscrisi 
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automat cu valorile : SWC1—91 ; SWC2—22 si vor [i tipăriţi pe ecran. În regimul 
MANUAL vor fi preluaţi de lu tastatură, biții lor avind următoarea seinni- 
ficaţie : 


BITU —6-- 

1 execulă si testul complementar (subtestul adresare) 
BITI —6$— 

1 Oprire la eroare ` continuă cu comanda Z. 
BIZ —60— 


1 Ciclează pe locaţia unde n apărut o eroare in textil. SCCI E 
BIT3 —y-— (BIT 10 inefccliv) 
1— Inhibă tipărirea erorilor 


BIT4 —9— 
1— Ciclu pe subtestul definit de biții 0,7 
BITS —g— 


1—- inhibă tipărirea listei de erori după fiecare execuţie n subtestuiui. 
BIT0,7 — Cod subtest 
BIT8 --8— Serie In începutul [iecărui sublest numărul corespunzătar. 
—] Oprire după fiecare subtest. 


BIT) —6 

-—1 inhibă execuţia testului GALPA'T 
Biriv—p 

—1 “Tipăreşte numui prima eroare din modul cind BIT3— 1. 
BITI! —9 

—1 Execută subtestul PING PONG de 25 de ori 
DIER: 

—1 inhibă tipărirea lui, END PASS »* 
BIT- 9 


—1  Inhibi ciclul pe execuţia testului RAM 


Deci testul aulomal esie caracterizat de următoarele : 

— execuția nu se oprește la apariția unei erori; 

— execulă sublestele în ordinea crescătoare a codului ; 

— lLipüresle erorile si lista de erori; 

— inhibă erorile si lista de erori; 

— inhibă subtestul GALDPAT ; 

— execulă subtestul PING PONG o singură dată; 

— inhibă ciclul pe execuţia testului RAM 

Cei M biji se introduc după mesajul 'SWITCIL :' (In regimul MANUAL) 
sub forma a 4 cifre hexa, astiel: 


BIT15 BIT14 BITI3  BITI2 BITII  BITIO DIT9 BIT8 
SWITCH2 
B a BITG BITS BIT4 BIT3 BIT2 BIT! B "t 
cifră hexa | i cifră hexa 


———————— SWITCH! x 
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Ordinea de introducere este : 
SWC2 (CR) SWCI (CR). 


Codificarea $i ordinea de execuţie in regim AUTOMAT sint. urmátoareto s 


00— Adresaro (ADR) 
91— Seriere-citire (SCCIT) 
$2-— PING PONG 

$3— GALPAT 


14.5.1. Descrierea modurilor de lucru ale programului roşu 


Testul adresare : (ADR) constă în scrierea succesivă In pagini de ineinorie 
de cite 256 de octeți a unui contor cu valoarea -FFH. La începutul fiecărei 
pagini contorul este dublu incremental astfel încit se poate identifica. uşor 
fiecare pagină de memorie. Informaţia * scrisă arată astfel; 


Coop aa $1 $23 .... FF 
Ciop $i 02 63 .... FE 
coop 02 $3 64 .... FD 


Testul se aplică pe zone compacte de memorie. 
Facultativ se poate repeta testul, inversind la seriere în memvrie cei doi 
cuarteli ai contorului, 


Testul scriere-cilire (SCCIT) detectează biții de memorie blocaţi la zero/unu. 

Se scrie succesiv In fiecare locaţie configuraţia iniţială (de exemplu AA), 
apoi complementul ei și din nou configuraţia inițială, verificindu-se de fiecare 
dati corectitudinea operaţiei. Se aplică pe zone compacte de memorie. 

Testele PING PONG si GALPAT operează la nivel de modul de 16 Ko 
(0, A000H, 8000H, CO0pI1). Aceste Leste necesită o subrutină (SGP) care deli- 
mitează din zona compactă de memorie RAM limitele modulului de testat 
(ADINE respectiv ADSUP). 


Testul GALPAT : detectează delecte de adresare, selecție multipli, 
timp de acces. După ce se serie în modul configurația inițială, se parcurge 
succesiv fiecare locaţie : se scrie în ea configurația complementară $i se verifică 
toate locaţiile modulului. Fiecare verificare este urmalá de o verificare a loca- 
Hei curente. La sfirşit se reface locația curentă. Se repetă testul pentru configu- 
rația complementară. Întrucit operarea cu fiecare locaţie implică verificarea 
întregului modul, testul durează de ordinul a citorva ore. 


Testul PING-PONG : este asemănător cu testul GALPAT, dar optimizat 
ca durată. După ce modulul de memorie este înscris cu configuraţia iniţială 
se parcurge succesiv fiecare locaţie inscriindu-se cu configurația complementară. 
Pentru fiecare locaţie curentă se verifică 14 locaţii, fiecare verificare fiind 
urmată de verificarea locației curente. Adresele acestor locaţii se obțin pornind 
de la adresa locației curente, prin complementarea cîte unui bit de adresă. 


În continuare se 
SGP apelată anterior 
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modulele testabile. 


PING PONG: 
P1: 


P21 


Pm 
PB: 


£41 


P51 


GALL RWERR 
POP D 

POP B 
MOV AC 
STAX D 
LDA ADINE 
CPI AĤ 

JZ P7 

M VI H,15H 
JMP P8 
MVI H,14 
MOV AH 
SUI 69H 


prezintă programul care execută acest test. Subrutina 
a pregătit adresele limită (ADINF, ADSVP) pentru 


; inlţializare 
; coptază cuvint iniţial între (ADINF, ADSUP) 


î (D,E) — adresa cuvintului test 


; Se verifică dacă în adresarea cuvintului de test s-a 
înscris configurația iniţială. 


; subrutina de contorizare și tratare a erorilor 


; Se înscrie în locaţia test configaratia complementară 


; Se stabileşte numârul de biţi care vor A complemen- 
taţi din adresa cuvintulul test (pentru un modul întreg 
se complementează 14 biţi) 


i L — masca pentru complementarea unul bit din 
udresă 


; Adresa cuvîntului test în stivă far în 11 și L conterai 
şi masca pentru complementare, 


; masca devine L«01H 


; Masca şi contorul în stivă 
; salt dacă PNGăcontor de biţi 


; complementarea bitului din L 
H plementarea bitulu! din H 


; Adresa sfirgit RAM 


; salt dacă Hi» HMAX. 
; locația derivată se compară cu configuratia inițiată, 
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POP D 
POP B . 

LAT "rS : ae compară cuvintul test cu configuraţia complementată 
XRA 
JZ P3 t dacă nu este eroare salt ia complementarea următorului 
PUSH B bit de adresă 
PUSH D 


MOV B,C 
GALL RWERR 
POP D 

POP B 


re POP H ; S-a termirat un cilu de verificare 


STAX D ; Rescricre cuvint inițial la adresa 
INX D cuviutului de test 

LDA ADSUPj 

CMP D 


JNZ P2 ; Dacă adresa următoare și ADSUP se inchide bucle 
MOV A,B externă 


MOV B,C ; schimbă cuvintul inițial cu cuplementarul său 
MOV GA 

LDA VARPRI] 

XRI 20 ; Se testează și modifică ITEST | 

STA VARPRI i 


ANI 20 ; Dacă INTEST=1 se execută testul și pentru configu- 
JNZ P1 rain complementari 


RET 


14.5.2. Organizarea testului RAM. În figura 14.2 este reprezenlală sche 
matic organigrama testului RAM. După iniţializări şi mesaje de inceput test, 
se cere precizarea octefilor SWC2, SWCI în regimul manual, jar În regimul 
automat ei sint afigafi, fiind determinaţi interior. 

În regimul automat zonele de test RAM au fost precizale a intrarea În 
programul TEST aMIC. În funcţie de SWC4, se cxccutü testele în ordinea 
crescătoare a codurilor sau se cicleuză pe testul dat de. SWCO7. 

Codul testului curent este memorat şi, pe baza lui, se crcază adresa de 
salt la subtest si codul cventualclor erori. Dacă SWC8=0 atunci la Începerea 
unui subtest se afişează codul subtestului curent, informiud prin aceasta că 
testul anlerior s-a lerminat (în acest regim programul nu se opregte după 
subtest). După execuția sublestului, dacă SWCR=1 se dă mesaj : END** şi 
se punc la dispoziția operatorului. Comanda CTRL-G va executa listarea 
erorilor şi predă controlul monilorului TEST aMIC. Dacă SWC5=1 se imbibă 
listarea erorilor şi continuă testul. [n cazul în care subieslul fermninal a fost 
GALPAT, se afişează sau nu END PASS**—func[ie de SWCI2. Alișarea este 
utilă în cazul în care se ciclează pe testul RAM. Bitul SWCI1 decide dacă 
subiestul PING PONG se face o singură dată sau de 25 de ori. Se observă 
din organigraniă complexitatea regimurilor de lucru a programului TEST RAM. 
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MESAJ: D 
BIEST RAM € 
SWITCH: 
ect 


231 


- ESL 
Se afișează: Eé 3 
Sa 22M fostoturà 
P Ct -0H 
Cere: 
ZONE TEST RAM 


DA 
x Ciu pe testul 
NU dat de SWC 67 
Se incepe cu Se tormeazo rr., 
testul D Sieg 


Memorează cod 
testului 
Creeuză odesa de 
sal! u testul curent 
$ O ry 
Oprre după 


qu 
MESA] fiecare subtest 
JESla_» 


Sau în subtest 
Executia Ssubtestului 


/ 


ENDTEST 


Fig. 14.2. Organigrama testulul RAM. 
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Semnificaţia comenzilor pe parcursul testului este următoarea : 
CTRL-Z — repornire după subtest sau după oprire la eroare; 
CTRL-G — tipăreşte lista de erori la sfirșitul subtestului curent fn regim 
manual ; 
CTRL-G — oprire TEST RAM după subtestul curent. 


14.5.3. Modul de tratare a erorilor. Codul erorilor apărute fn cursul tes- 
telor (ERR) indică fn care subtest a apărut acea eroare : 


$1 — Eroare de R/W în testul de adresare (probabil pinii de adresă defec[i) 
92 — Eroare de R/W în testui SCRIE-CITESTE 

93 — Eroare de R/W în testul PING-PONG 

04 — Eroare de R/W în testul GALPAT 


erorii 


Fig. 14.3. Orgenigreme 
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: ISTAREA 
MA EROR CR 


LISTAREA 
ERORILOR ERORILOR 


į f „MESAJ: 

END RAM MESAJ: 
d CONT. LA CTRL-2 
4 

Eu KEYN 


L KEN 

<a -D 
Continvá subtestol 

dal de SWC 5,6 DA 


OED 


nU 


® BED. 
ED 


WCREMENT NU 
COD TEST 


MESAJ: 


ZA 


END PASSee 
Contor Cicieoza tes? 
exec lest pentu RAM 
MONITOR 
NU TEST E 


De CONTINUA 
PING PONG 


testării eroritor < 2. 
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Mesajul tipărit la apariţia unei erori are următoarea semnificaţia s 


ERA : — Codul erorii apărute 

ARDATA 1 — Data citită 

WDATA ! — Data scrisă 

PC: — Valoarea PC ln apelul rutinei de eroare 
ADR: Adresa de memorie unde a apărut eroarea 
MODUL 1 Numărul modulului 


Fiecare modul de memorie RAM (16K) are o zonă contoare distinotă, 


euprinzind : 
— un octet în care este înscris numărul modulului ; 


— 8 contoare pentru erorile de R/W, cite unul pentru fiecare bit 

— un octet depăşire, indicind biţi pentru care numărul de erori 2 256. 

Fiecare contor ocupă un octet, deci pot fi memorate distinct 256 erori, 
Pentru un număr mai mare de erori se afișează caracterul '*' în dreapta ecra- 
nului respectiv. Memoria RAM utilizată pentru DISPLAY nu este testată 
de către acest program, deoarece ea este testată în cadrul testului DISPLAY. 

În figura 14.3 este prezentată organigrama de tratare a erorilor gi de 


e prire la eroare. ; 
După contorizarea erorii şi completarea bufferului de afișare, esto testat 


bitul SWC3 care dacă este poziţionat pe „1“ permite afişarea ororii. Dacă bitul 
SWC10-"1", eroarea va [i afișată numai dacă esto la prima apariţie. Înainte 
de afişarea erorii, variabila FTRST este anulată. 

in funcţie de valoarea bitului SWCI, programul de testare va fi oprit 
sau nu. Subtestul SCRIERE-CITIRE permite buclarea pe locația eronată, 
dacă valoarea bitului SGW2=“1". După retestarea locației, programul așteaptă 
comandă de la operator. Dacă aceasta este CTRL-Z, testarea locației eronate 


este reluată. 

Pentru celelalte subteste şi pentru su 
se va afişa mesajul 

STOP, ER. 
dupá care se pune la dispoziţia operatorului. Se poate continua textul ca oo- 
manda CTRL-Z, încheind sub rutina de tratare a erorilor. 


btestul SCCIT cu bitul SG Wie, 


14.6. Testarea transferului de informaţii dinspre/spre casetofon 


Pentru faza de punere la punct a interfeţei cu casetofonul se comandă 
înregistrări cu informatie constantă Q0H, FFH şi apoi AAH urmărindu-se cu 
osciloscopul forma şi nivelul semnalului la intrarea în casetofon. La fel se urmă- 
regte și redarea semnalului la intrarea în interfaţa programabilă internă. După 
ce se fixează nivelul optim al volumului la înregistrare şi redare, se fac taro- 
gistrări lungi (pînă la 44 Koctefi), cu informație constantă sau aleatoare, sau 
cu blocuri de date în care fiecare octet este identie cu octetul nai puțin semnifi- 
caWiv de adresă, corespunzător. Se execută de citeva ori Încărcarea acestor 
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ee ee iti IE, 


fişiere În memoria calculatorului şi se verifică Încărcarea atit prin suma de 
control a fişierului cft si prin programe de verificare a conținutului fişierului 
ineărcat. Aceleaşi fncercüri se fac si sub controlul interpretorului BASIG, eu 
ajutorul instrucțiunilor LOAD şi SAVE. 


14.7. Procedura de test a interpretorului BASIC 


Procedura de test a interpretorului BASIC constă în reluarea unui set 
de programe in care apar toate instrucţiunile specifice acestuia. 

Aceste programe de test, scurte, trebuie alese astfel încit să solicite toate 
posibilităţile limbajului. Procedura de verificare a bunei funcționări a iaterpre- 
torului BASIC 14 K, constă fn rularea de programe de test scrise în limbajul 
BASIC. Aceste programe utilizează pé cit posibil cfte o instrucțiune sau o 
funcție BASIG în așa fel fncit se cunoaște aprioric rezultatul, sau domeniul 
de rezultate. După rulare se verifică prin comparare dacă s-a ajuns la rezultatul 
aşteptat. 

n În continuare se preziată cfleva programe de acest tip (v. și oap. 9). 


^ 14.7.1. Verificarea funcțiilor standard 


Funcțiile standard rezolvate ln interpretorul BASIG siat : sinus, cosinus, 
tangenta, arctangenta, logaritm, funcția exponențială, radical, ridicare la put ere. 
Se ştie că: 


Se verifică dacă'pentru un X dat, funcţiile BASIG satisfac această egalitate. 


1) X20 

29 Y=TAN (X) 

36 Z=SIN (X)/COS (X) 
49 PRINT Y ; "s" : 7 
59 STOP 


Se verifică Yegalitățile următoare : 
sinfx--costx e | 
tg (arc tg (x)) x 


eli x co 


1$ FOR Xs=6 TO 1$ 
29 PRINT X, SIN (X)126 COS (X)f2 
36 NEXT X 

4$ STOP 


19 FOR X=—19 TO 1$ 
2% PRINT X, TAN (ATN (X) 
$$ NEXT X 

49 STOP 
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19 FOR X» TO 16 
29 PRINT X, EXP (LOG (X) 
39 NEXT X 

49 STOP 


Se calculează rădăcina pătrată dintr-un număr dat de utilizator prin 
formula interactivă : 


Yum hnt) 


unde A este numărul introdus; 
yi este o valoare arbitrarăļ inițială 


Iterafia se opreşte cînd (y,,41—y;) 79. Se tipăreşte valoarea astfel obținută. 
Be tipăreşte apoi şi valoarea obţinută prin funcţia BASIC de rădăcină pătrată 
(SQR) şi se compară cele două rezultate astfel obţinute. 


10 REM "RADACINA PATRATA” 
29 PRINT “DATI NUMARUL! 

39 INPUT A 

48 B=INT (RND (X)*A)--1 

59 REM '"B-Y ARBITRAR ALES” 
55 REM “IN FUNCTIE DE A” 

6p Y6.5*(B--A/B) 

79 IP BmY THEN 199 

86 BeY 


99 GOTO 6p 
HA PRINT “RADACINA PATRATA” ; 
105 PRINT "PRIN ITERATIE:" ; Y 
119 X=SQR (A) 
120 PRINT RADACINA PATRATA” ; 
125 PRINT “PRIN FUNCTIE SQR: "; X 
189 ZmABS (X--Y) 
149 PRINT “DIFERENTA :"; Z 
159 STOP 


Funcţia internă de generare numere aleatoare (RANDOM), pune la dis- 
poziţia utilizatorului cîte un număr aleator În domeniul (9, 1). Se generează 
tabele de cite JØ numere variabile în diferite domenii, înmulţind numărul 
aleator cu diferite constante și/sau luna valoarea întreagă cu funcţia INTEGER. 


1$ REM "VERIFICARE RANDOM” 

20 PRINT "VALORI REALE ÎNTRE 6 SI 1” 

36 FOR Iesel TO 19 

49 PRINT RND (X), 

56 NEXT I 

860 PRINT ''VALORI REALE ÎNTRE 6, 10 SI Ø, 109" 
70 FOR Is|i|TO 1$ 

8$ PRINT RND (X)*10 ; RND (X)*100 

96 NEXT I 

199 PRINT 'VALORI INTREGI INTRE 6, 16 SI 0, 100" 
119 FOR 1:1 TO 10 

120 PRINT INT (RND (X)*10) ; INT (RND (X)*160) 
130 NEXT I 
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149 PRINT "VALORI INTREGI INTRE $, 6 SI 16, 29" 
156 FOR Jee) TO 19 

108 PRINT INT (AND (X)*6) ; INT (RND (X) * 164-10) 
119 NEXT 1 

189 STOP 


Prin funcţia PLOT se poate aprinde un punct pe ecranul TV, considerindi 
ecranul de 64*64 puncte. Se trasează curba sinus cu funcția PLOT şi se şterge 
cu funcţia UNPLOT. 


10 INIT P 

29 VOR N=1 TO 4 

39 PLOT N, 22--20*SIN (N/S2*P 
40 NEXT N 

$6 FOR N=1 TO 64 

6P UNPLOT N, 22--20*SIN (N/82*P1) 
76 NEXT N 

88 STOP 


Funcţia RANDOM se poate verifica si cu funcția PLOT. Se umple ecranub 
aleator prin funcțiile RANDOM $i PLOT cu puncte aprinse. Dacă această 
variaţie aleatoare umple relativ uniform, ecranul, funcția RANDOM este 
aleatoare. 


19 INIT P 


20 PLOT INT (RND (X)*64)4- 1, INT. (RND, (X)*64 1) 
39 GOTO 20 SR 
46 END hy 


Funcţia PLOT aprinde un punct pe ecran și UNPLOT stinge punctul pe 
ecran. Se poate astfel aprinde şi stinge același punct obţinînd astfel o pulsafie 
a umi punct. 


10 INIT PE” 
28 RENE DO 


48 FOR 1-1 TO 1 

56 LLOT INT (X*64)--1, INT (Y*0644-1 
60 UNPLOT INT (X*604)4- 1: INT (Y*64)4-1 
70 NEXT I, 

80 STOP ^R 


Funcţia PRINT AT (X, Y) permite afișarea pe ecran, la coordonate 
date, 4 unei informaţii. Ecranul este văzut ca formînd 82 de linii a cite 36 de 
caract re. În instrucţiune, X este linia şi Y coloana de unde se va Începe afişarea. 


Se afișează pe ecran un tabel de fermă canoscută. 


19^INIT P 

29 PRINT AT (2, 2); “TABEL CU NUMERE” ; 
25 PRINT "DE TELEFOANE” 

39 PRINT AT (3, 2); St 
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49 PRINT AT (0, 5); "NUMB 1 PREFIX I”; 
45 PRINT “NR. TEL. 

59 PRINT AT (7, [rer St 

99 FON 1-8 TO 16 STEP 2 

76$ READ N $ (10) 

86$ READ N 

109 PRINT AT (I, 2; N$; "1" ; P; "I; N 
116 PRINT AT (lei, 2); S$ 

129 NEXT I 

139 STOP 

1460 DATA "NUME 1”, 971, 12345 

150 DATA "NUME 2”, 98, 457321 

169 DATA en 


290 DATA »-: 
219 S3=" 
228 ND 


Aprinderea și stingerea unei zone prin instrucția PRINT AT (X, Y) 


19 INIT P.L LEN 
20 X= INT (RND; X)*64)91 ms 
36 Y INT (RND Rel 

4P FOR Jee! TO 2$ 

56 PRINT AT (X, n 

60 PRINT AT e yg” ay 
10 NEXT 1 

86 STOP 


Caracterul oare aparţine la o valoare A se obţine prin GHR$ (A). Setul 
de caractere so alişează prin următorul program. 


1p PRINT "SETUL DEYOARAGTERE” 
20 FOR Ac TO 256 

39 PRINT AKCHRS (4 

48 NEXT A 

5$ STOP :* 


Funcţia INKEY$ permite utilizatorului să dea unei variabile gir valoarea 
tastei apásate. Următorul program permite utilizarea aMIC-ului ca mașină 
de scris. Apăsarea tastei RETURN poziţionează pe linie nouă. 


19 INITP ww 

29 AS=INKEYS + 

36 Bis INKEY$ 

40 IF A$—B$ THEN »» 

59 REM "SA TASTAT UN CARACTER 
16 PRINT'B$ 

76 GOTO 29 

8$ END 
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i 


Valoarea variabilei sir se obţine prin funcţia VAL. Tora 
Dacă la linia 20 schimbăm expresia și la linia 39 valoarea lui X, putem 
sec tua verificări pentru diferite expresii şi valori ale lui X. 


19: PRINT "VALOAREA EXPRESIEU' 
29 F3 ="2X4 2—X+1"; 

36 FOR X=1 TO 5 

46 T- VAL (F$ ) 

56 PRINT “EXPRESIA :" ; F$. 

66 PRINT "PENTRU X="; X; 

76 PRINT "ARE VALOAREA 1"; T 
$$ NEXT X 
9$, STOP 


à 


Se permit în Interpretorul BASIG trei bucle suprapuse. În următorul 
program există trei bucle K, J şi I. Totodată se lucrează cu instrucțiuni matriciale. 


19 PRINT "ORDONAREA UNUI SIR” 
2 READ N 

36 DIM A (N) 

49 MAT READ A 

56 FOR 11 TO N—1 

6$ FOR Jett TON 

76 IF A (I) «A (J) THEN 130 

88 D=A UI 

96 VOR Kaj TO LEI STEP — 
190 A (K)«A (K—1) 

119 NEXT K 

129 A (D-B 

130 NEXT 'J 

146 NEXT | 

150 PRINT “ȘIRUL ORDONAT” 
169 MAT PRINT A 

170 STOP 

180 DATA 5 

199 DATA 19, 39, 5, 15, 5 

209 END 


iu funcție de valoarea unui număr se pot executa diferite secvențe de 
program cu instrucțiunea ON. Pentru a verifica această instrucțiune se tas- 
tează un număr X de utilizator și dacă pe ecran apare „ați bătut X" atunci 
funclioneazá corect. 


16 REM “VERIFICARE ON — GOTO” 

26 PRINT '"TASTATI UN NUMĂR” 

36 INPUT M 

46 ON M GOTO 86, 100, 120, 140, 108, 120, 298, 229, 24€ 
56 PRINT "ATI TASTAT 0” 
66 GOTO 28 

80 PRINT "ATI TASTAT 1" 
99 GOTO 20 

109 PRINT "ATI TASTAT 2" 
119 GOTO 26 

129 PRINT "ATI TASTAT 3” 
139 GOTO 26 
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146 PRINT "ATI TASTAT 4" 
159 GOTO 2 

169 PRINT "ATI TASTAT 5” 
170 GOTO 29 

189 PRINT “ATI TASTAT 6” 
199 GOTO 29 

200 PRINT "ATI TASTAT 7” 


2160 GOTO 
Par TASTAT 8” 


228 LABE 
250 GOTO 25 

246 PRINT "ATI TASTAT 9" 
259 GOTO 20 

269 END 


Utilizarea instrucţiunilor READ, MATREADJ RESTORE se exempli- 
fică în următorul program. A se observa că nu se ajunge niciodată la citiree 
valorilor 3 din blocul de date. 


18 REM "DATA, READ, MAT, READ“ E? 
26 READ A, B, C 

36 PRINT A, B, C 

40 READ A, B, C 

59 PRINT A, B, C 

68 RESTORE 

7$ MAT READ D (6) 

Li MAT ERINE D 


100 ENDS 1, 1, 1, 2, 2, 2, 3, 3, 3 
119 END 


Urmátorul program, utilizeazăķinstrucțiunile cul şiruri de caractere. 


16 PRINT "SUPRAFATA" M 

15 PRINT “DREPTUNGHI, TRIUNGHI, CERC” 
28 INPUT S$ 

3$ IF S$ &"DREPTUNGHI'" THEN 70 

49 IF S$ ="'TRIUNGHI” THEN 116 

58 IF S$ —''CERC" THEN 169 

6 GOTO 26 

70 PRINT "DATI LUNGIMEA SI LATIMEA” 
86 INPUT B, C 

99 Z—B*C 

199 GOTO 199 

11$ PRINT “DATI LUNGIMILE LATURILOR"' 
128 INPUT A, B, C 

130 S (A A BACH 

148 Zen BOD (S* (SCA)*(S—B)*(S—C) 

156 GOTO 199 

168 PRINT "DATI RAZA” 

170 INPUT oM 

189 Zx:PI*R 

199 PRINT ' SUPRAFATA'' ; S$; "m; Z 
200 GOTO 19 

210 END 


Apelul de subprogram scris în limbaj BASIC se face prin GOSUB ur. 
Prima instrucţiune RETURN întiinită provoacă revenirea la instrucțiunea 
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următoare instrucţiunii GOSUB executate ultima dată. În următorul program 
se verifică unele posibilități de salturi la subprograme In BASIC. Primul 
RETURN intilnit la care nu există pereche GOSUB provoacă oprirea execu- 
tării în continuare a programului. 


20 REM “UTILIZĂRI GOSUB ŞI RETURN” 

25 REM “APEL SPA. LA PRIMA INTRARE” 

39 GOSUB 290 

36 PRINT "REVINE DIN SPR 29 

4$ REM "APEL SPR. INTERIOR” 

56 GOSUB 216 

66 PRINT "REVINE DIN SPR 219” 

55 REM “APEL SPR. 366 REVINE CU GOTO” 

66 GOSUB 306 

€ PRINT “REVINE AKI PRIN RETURN URMĂTOR” 
76 PRINT “REVINE PRIN GOTO DIN SPR 396^ 
25 REM “URM. RETURN E PRIMUL ÎNTÎLNIT”! 
89 REM 'DUPA GOSUB 366, REVINE DUPĂ EL” 
85 RETURN : 

99 REM “AICI NU SE AJUNGE” 

95 STOP 

299 PRINT "INTRARE SPR. 29e'' 

210 PRINT "CORPUL SPR. 20$" 


226 RETURN 

399 PRINT "INTRARE SPR. 309 
319 GOTO 70 

499 END 


Pe ecran apare deci: 

Intrare spr. 20$ 

Corpul spr. 206 3 

Revine din spr. 200 

Corpul spr. 208 

Revine din spr., 210 

Intrare spr. 369 : 
Revine prin GOTO din spr. 396 

Revine alci prin RETURN următor. 


Utilizarea subprogramelor scrise în limbaj mașină e posibilă prin instruc- 
fiunea CALI. Următorul program în limbaj BASIC cheamă primul subprogram 
în cod mașină. 

19 REM “CALL” 


29 CALL (1) 
36 STOP 


Subprogramul scris în limbaj maşină se introduce în memoria calcula- 
torului decodificnt în hexazecimal, prin funcția S (substituție) din monitor. 

Se doreşte introducerea unui subprogram care să genereze în mijlocul 
ecranului caracterul A, diferit de caracterul A dat de generatorul de caractere 
al monitorului. Se cheamă subprogramul de inifializare ecran al monitorului 
şi subprogramul de scriere caracter. 


CALL INITV 
LXI H, (ADR MIJLOC ECRAN TV) 


H — Microcalculatoru) personal aMIC — vol. H 
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LXI D, (ADR GENERATOR A PROPRIU) 
MVIA,6 

CALL WR26 

RET 


CARGEN DB 6, 9, 9, F, 9, 9, 


Se va folosi următoarea secvenţă de substituire S : 


€400 și ; NR. SUBPROGRAM 
FF 66 ;ADR SPR 1 
EF ; SFIRSIT TABEL SPR 
rF CD A4 92 ; CALL. INITV 
21 BA 56 ; LXI H, 500A 
11 OE 67 ; LXI D, CARGEN 
3E 06 ; MVI A, 6 
CD 95 ga : CALL WR26 
c9 ; RET 
070E 0o 09 o9 ; CARGEN PT. A 
er eo 99 


Pentru verificarea funcţiilor grafice MOVE, DRAW se dau în continuare 
citeva curbe specifice : 
a) O serie de curbe sinusoidale 


20 INIT P 
38 Xp 

EKOS 

59 Z=X 

$$ MOVE X, Y 

70 FOR Iw TO 3*PI STEP P1/16 
89 DRAW Z, SIN (D*254« Y 

98 2—2--2 

190 NEXT 1 

119 X«X42 ' 

120 Y Y «2 

130 IF X <=26 THEN 59 

149 STOP 


b) O serie de cercuri care formează un con. A, B — coordonatele centru- 
lui primului cerc. 


20 READ A, B 

30 READ X, Y 

46 INIT P 

59 FOR Tei TO 25 

60 MOVE AAT, B 

70 FOR Imi TO 2*P] STEP P1/19 
89 DRAW A--T*COS (1), B4. T*SIN (1) 
99 NEXT i 

109 A=A+X 

110 B=B4 Y 

129 NEXT T 

130 STOP 

14$ DATA 10, 16, 5, 5 

150 END 


Procedura de test a interpretorului BASIO 


c) Linii de lungimi variabile din cele patru coljuriL ale ecranului 


19 INIT P 

20 MOVE $, 6X 

30 DRAW RND QU*1pp, RND (X)*199 

49 MOVE 100, 100 

bé DRAW 109—RND (X)*100, 160—RND (X)*10P 
60 MOVE 6, 100 

70 DRAW RND (X)*100, 109—RND (X)*199 
89 MOVE 109, 0 

96 DRAW 109—RND (X)*100, RND (X)*109 
100 GOTO 20 

110 END 


“'rasarea unei figuri cu instrucţiile BASIC RMOVE și RDRAW şi rotirea: 
figurii cu ROTATE. Se trase ză: n trinnghi şi se rotește acest triunghi. 


19 INIT P En! 
20 WINDOW —894, 59, —t0, 5€ 

25 MOVE 9, 0 

30 FOR U=p TO PISITE? PI/19 

35 ROTATE U "is 

49 RDRAW 19, 8 um 

45 RDRAW 19, 19 

69 RDRAW —2, —1^ 

b5 NEXT U 

60 STOP 


Verilicarca funcţiei WINDOW i VIEWPORT. Be trascazü un cerc de 
o mărime dată la diferite valori pentru WINDOW si VIEWPORT. Se observă- 
că trebuie aleasă mărimea şi zona ecranului în funcţie de mărimea figurii 


10 INIT P 

20 REM “WINDOW SI VIEWPORT IMPLICIT”! 
25 REM "o 100. 0, 190” 

30 REM “APARE PE ECRAN 1/4 CERC” 

4$ GOSUB 209 

56 INIT P 

60 WINDOW —50, 50, —66, 50 

70 REM "VIEWPORT IMPLICIT” 

75 REM "$, 196, 9, 109 

80 REM “APARE TOT CERCUL ÎN MIJLOC ECRAN“ 
960 GOSUB 269 

190 INIT P 

110 WINDOW —5$, 59, —50, 59 

120 VIEWPORT 56, 109, 50, 100 

120 REM “APARE CERCUL ÎN DREAPTA SUS” 
140 GOSUB 209 

150 STOP 

200 MOVE 25, 9 

230 FOR Leef TO 2*PI STEP Pl/16 

220 DRAW 25*COS (1), 25*SIN (1) 

230 NEXT I 

240 FOR Imi TO 50 

250 REM "TEMPORIZAnE" 


1:044 Testarea resurselor bardware și a interpretorului BASIC 


280 NEXT 1 
270 RETURN 
280 END 


'Irasári de pătrate care se măresc; in video normal $i video invers. 


20 INIT P 

39 PUT (34)-128 

49 GOSUB 1908 

56 INIT P 

dé PUT (34)—169 

76 GOSUB 199 

80 GOTO 29 

160 MOVE 5$, 59 

119 FOR L=19 TO 199 STEP 10 
126 MOVE 59—L/2, 96—L/2 
130 RDRAW L, $ 

148 RDRAW $, L 

156 RDRAW —L, $ 

169 RDRAW 6, —L 

176 NEXT L 

189 RETURN 

196 END 


Bateria de teste, odată trecută, ne dă posibilitatea de a opera cu incredere 
«u exemplarul de aMIG. 
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ANEXA 3 


COLECȚIE DE PROGRAME PENTRU REZOLVAREA UNOR PROBLEME DB 
MATEMATICĂ DIN MATERIA CLASELOR A IX-A ȘI A X-A 


Proiectarea și realizarea inlcrocalculatoavelor individuale în tara noastră creează premisele 
aeosaro introducerii lor in Invátdinintul liceal, in cadrul taboratoaretor de matematică, Gate, 
hioloute, ctc. 

Trebuie amintit înptul că în acest an a Intrat în fabricaţie de serie, la Íntreprinderoa de 
memori! zlectronice din Timişoara, microealeutatorui aMIG. 

Ministerul Educaţiei și Învățămîntului a comandat circa o onta exemplare, cate vor între 
în acest an în dolarea unor Instituții de învățămînt superior. 36 prevede ca acțiunea de dutara 
să en extindà gi 1a nivelul liceelor. 

între timp, specialistii tn tehnica de calcul din fara noastră au proiectat noi tipne) de 
asirracairtiliLaare Individuale, dintre care so amintosc: HO-85, PRAE d DEGA-299. 

Interesant este microsistemul HQ-85, care a fost proiectat Ja Catedra de calculutoa rs 
din institutul Politehnic Bucureşti și caro va intra în curfad to fabricaţie de seric In Întreprin: 
derea de Caleulatoare Electronice. 

A rint In vedere performanțele acestor calculatoare legate, dc implementarea unar limbu je 
evoluate (BASIC, PASCAL, FORTRAN, MIQBOPROLOO, FORTH, ete.), posibilitatea de 
tolustre a unui ecran color penteu vizualizare, ett şi faptul că ele vor putea Intra In dotaren liceolop, 
in ceda ce urmează se va prezeata 0 colecţia do prograute în BASIC, pentru asistarea studiulul 
anor capil.olc de mateinatici diu materia claselor a IX-a gi a X-a. 


1. PROGRAME PENTRU CALCULE CU POLINOAME 


So prezintă programe pentru : 
~ tmpårjirea unnt. polinom de un grad oarecare a cu polinoame de gradul intii şi dm, 
sreductibile şi unitare In R, adică de forma | x-pa și x t 2-- px E 
— calculul valorii unul polinoin, 
— calculul rădăcinii reale a unul polinom într-un interval dat, şilind că la capetele inter- 
vainio! Ja, 5]. polinomul la valori de semne contrare d că ln acest interval funcţia polinoutială 
usto strict monotonă. 


1.1. PROGRAM PENTRU ÎMPĂRȚIREA UNUI POLINOM CU UN DINOM 


Fie polinomul ` 


n 
y; ax”! sl binomul : z4- a. 


fest 
n 
Considerind citul de forma ` Y bid vestul do foron : bags rezultă următoarele t 
imi 
n n 
Y n, XP"! zs | Y b at” ) “(atat ha sau 
imQ i9 


n n 
V, acte, ate Y) (bearbab) 
IE 


mo 
Prin identificare se obțin următoarele relații 1 
b, =0 
2,230,444 8: be pentru iz0,1,2,...,8 
gau) 
bia 78;—a: b, 
şi sestuli 


Basen, — 25 b, 
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20 PRINT “introduceţi gradul n al pounamu 

30 INPUT n 

40 PRINT n=” 

50 PRINT ^ "introdueeti coeficienţii polinomului SUMA" 
(a(D*x^ (n—1)) 

80 DIM a (2*1) 

65 DIM b (2*n) 

70 FOR i=0 to n 

80 PRINT "a (^; Lite 

85 INPUT a (L-1) 

90 PRINT a (EF 1) 

100 NEXT i 

110 PRINT “introduceţi termenul liber a a! divizorului" 
120 INPUT a 


130 PRINT "ac"; a 300 REM afisare rezultate 

200 REM calculul citului 310 FOR i—1 TO n 

210 b(1)=0 320 PRINT ^b ("^ ii;") "i b^ i41) 
220 FOR Le! TO n4-1 330 NENT i 

230 LET b (i+ 1)—8 ()) —a*b (i) 340 PRINT *r—^; b (n2) 

240 NEXT i 350 END 


12. PROGRAM PENTRU ÎMPĂRȚIREA UNUI POLINOM DE GRADUL n CU 
TIUNOMUL x t 24-px-- «4. 


Se consideră : 


n 
— polinomul de forina ` Y ax! 
Ies 0 


n 
— ettul de forma: Y ba 


fe 0 
— restul de forma rx+-s, 


prio identificare, din relația : 


n n 
DET (X b ei e (xE24- pic qe ril s 
Tea 


ICH 
se obțin următoarele rezultate: 
bo —60 raba 
bci S= bart Par 


bus 0:7 Bit -— qb 


10 REM Impărțirea unul polinom de gradul n cu un trinom ` 
20 PRINT “introduceți gradul n al polinomului" 

30 INPUT n 

40 PRINT “n=”; 

50 PRINT “Amtroduecţi coeficienţii polinomului SUMA (a (i) * x^ (n—1)" 
60 DIMA (2*n) 

65 DIMB (2*n) 

20 FOR 1z0 TO n 

80 INPUT a (I+ 1) 

90 PRINT “a (^; 1; ”0)=”; a (H1) 

100 NEXT i 

200 PRINT “introduceţi coeticlenţii divizorului x^2-F part a” 
210 PRINT “introduceți p” 

220 INPUT P 

225 PRINT ”p=”; P 

230 PRINT “introduceţi q” 

240 INPUT q ` 

250 PRINT “q="; q 

300 REM calculul coeliclenţitor citului 


p 


p 
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310 LET b(l)=u 410 FOR i=2 TO n 

320 LET b(2)=0 420 PRINT "b (^: |; ”)=”; b (Ee 1) 
330 FOR i=i TO ott 430 NEXT i 

340 LET b(i4-2)—a (D—p*b (i+ 1)—q°b (i) — 440 PRINT “r=”; b(n4-2) 

350 NEXT i 450 PRINT “s=”; b (n4-3)1- p*b (n+ 2) 
400 REM afisare rezultate 500 END 


13. PROGRAM PENTRU CALCULUL VALORIE UNUI POLINOM DE GRADUL œ 


Programul foloseşte ulgoritmul lui Horner. pentru calculul valorii polinomulut e 


n 
bit Sax! 
fe 


Polinomul P (x) poate fi scris și sub următoarea formă : 
P (x)=aat x (4... +x (rb x (8 x (a9). .... ) 

Calculul începe cu produsul ca cel mal mare grad de imbricare x'a. 

10 RIEM calculul valorii unui pollaom de gradul n 

20 PRINT” introduceţi gradul n al polinomului” 

80 INIT n 

40 PRINT “n=”; n 

50 PRINT “introduceţi coeficienții polinomului SUMA (a(i)*x ^ (n — D)" 

60 DIM a (2*n) 

70 FOR i=0 TO n 

80 INPUT a (Et 1) 

90 PRINT "n (^; 1; ")"; a (41) 

100 NENT i 

110 PRINT “introduceţi vatonrea lul x” 

120 INPUT x 

130 PRINT "xz";x 

200 RIM calcului valorii polinomulul prin metoda Horner 

210 LET p=a (1) 

220 FOR i:1 TO n 

230 LET pep*x4- n (H1) 

240 NEXT i 

300 REM alişarea rezultatului 

310 PRINT "p("*; x; ")z";ip 

320 END 


1.4. STABILIREA SOLUTIEI UNEL ECUAȚII PRIN METODA DIHOTOMIEI 


Se ştie că dacă funcţia f cate continuă şi strict monotonă în intervalul (a, b] si dacă f (a)- 
(it, atunci ecuația : [ (x)=0 nre o rădăcină unică în [a. bj. 

Dacă c este un număr pozitiv si dacă x,e[a, b], lar f (xe —€)*f (x44- c) «0, atunci x, este 
o rădăcină a ecuației date cu o precizie e. 

Calculul numeric a) produsului f (xo e)f (xpt e) este în general aproximativ. Se impune 
ca precizia să [le suficientă pentru ca 


f (x,—9)*f (xpt 6)«0. 
Se consideră Jumătatea intervalului (a, b] : c=z(a4- b)/2 şi se testează semnul lui f (a) * 
*[(c). Dacă [(2)-f(c) «0, rădăcina aparţine lui la, c], 1n caz contrar aparține lui [c, b}. 
Se construiesc următoarele intervale ` 
la by] la, bj 
| [a, c], dacă t (a) f (c) «0 
le, b]. dacă t (a t (c)>0 
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Lungimea Intervalulut [a,, b,] este (h—a)/2 1? n. Dacă sc doreşte o precizie a, atanei 
este suficient să sc construiască fas, Da} pentru un n astfel incit (b— 5)/2 1 nae. 


10 REM stabilirea soluției anel ecuatl!. folosiod metoda dihotomlci 

20 PRINT “introduceţi datel»: alim. etiuga i b«slim, dreapin ; o= precizia” 
30 INPUT a 

35 PRINT “a="; a 

40 INPUT b 

45 PRINT “b=*;b 

40 INPUT e 

50 PRINT Zei e 

5t PRINT “introduceţi gradul n a! pollnomulut* 


52 INPUT u 

56 PRINT "n="; n 

B5 PRINT “introduceţi coetielenţii” 130 IF d=0 THEN 200 
60 DIM a (2*n) 140 IF d < 0 THEN 100 
6? FOR 12:0 TO n 160 LET a:-c 

64 INPUT a (i4. 1) 153 LET x::z 

6 PRINT "a C; i; "hen a (041) 165 GO TO 170 

68 NEXT i £60 LET bzc 

80 REM calculul lui f (a) si f (b) 105 LET y-z 

90 LET c—a 170 IF b—a > e THEN 100 
92 GO SUD 1210 200 PRINT "c="; c 

94 LET gea? 210 STOP 

96 LET esch 1210 LET pea (1) 

98 GO SUB 1210 1220 FOR i-t TO n 

99 LET y=z 1280 LET p—p*c4-2 (i+ 1) 
100 LET c=(a+ hby2 1240 NEXT i 

110 GO SUB 1210 1260 LET z=p 

420 LET d=x*z 1260 RETURN 


2. CALCULUL INTEGRALEI DEFIETTE PRIN METODA SIMPSON 


Pentru calulu? integralei definite se foloseşte formula: 


si 1 (x) dx = (0/3) [(yot- Recht 4 (31& 3€ ..-4 ap) 2 Qc Set A Ya) 


ande: 
h = (X357: X9)2:p este pasul, 
p = numărul de divixziont. 
y =f (x) sc dă la lnia 500 din program; în cazul de față 
y= ((x—2)x-—1)*x--2. 


10 REM CALCULUL INTEGRALE! DEFINITE 
20 PRINT "Nie? 


30 INPUT D 

40 PRINT *X2Pz.* 

$0 INPUT E 

60 PRINT "P—*; 

70 INPUT P 170 GOSUB 500 

Wi B-(E—D)2/F 180 Ac Y--A 

90 A=0 190 F=F-—1 

100 X=D 208 IF F—0 THEN 220 
110 GOSUB 500 210 GO TO 40 

120 A— Y4-A 220 C A*n/3 

130 XX 4- D 230 PRINT *REZ-—';C 
140 GOSUB $00 2440 STOP 

150 X —4* Y4-A 500 Nat: IPN -1?*X F2 


100 X-X4B 510 RETURN 
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EDITURA TEHNICĂ 


(continuare de la vol. 1) 
* Un număr la fel de important de programe, din toate domeniile de apli- 
catie, rezolvă probleme simple si complexe de matematică-tizică din in- 
dustrie și invdlamint (aici este inclus si un indrumar pentru predarea mate- 
maticii asistate de calculatorul personal); alte programe rezolvă jocuri, 
trasează gralice si figuri etc. 
* Specialistilor le atragem atenția asupra existenței comenzilor pentru 
toate tipurile de monitoare aMIC si — in aces! context — asupra expunerii 
complete a microprocesorului Z80, cum si a uncia succinte a microproce- 


soarelor 8080. 


* Sint incluse programe de testare si indicatii de depanare, ca si referiri 
concrete la perifericele utilizabile cu aMIC - display-uri (televizoare 
SPORT, de exemplu), casete s.a. 

* Editura Tehnica se mindreste cu activitatea sa de pionierat in sprijinirea 
introducerii intensive a calculatoarelor personale românesti și recomanda 
cu căldura consultarea acestei carti din noul ciclu „Totul despre...” ca 
și a altor cărți de informatică, inclusiv a volumelor din seria continuă AMC 
(Automatica-Management-Calculatoare). 
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